home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / x / volume12 / xcal / patch1 < prev    next >
Encoding:
Internet Message Format  |  1991-05-06  |  78.7 KB
  1. Path: uunet!elroy.jpl.nasa.gov!usc!apple!veritas!amdcad!sun!exodus!hillside.co.uk
  2. From: pc@hillside.co.uk (Peter Collinson)
  3. Newsgroups: comp.sources.x
  4. Subject: v12i081: xcal3.2, Patch1, Part01/01
  5. Message-ID: <12926@exodus.Eng.Sun.COM>
  6. Date: 7 May 91 05:12:33 GMT
  7. References: <csx-12i081:xcal@uunet.UU.NET>
  8. Sender: news@exodus.Eng.Sun.COM
  9. Lines: 2976
  10. Approved: argv@sun.com
  11.  
  12. Submitted-by: Peter Collinson <pc@hillside.co.uk>
  13. Posting-number: Volume 12, Issue 81
  14. Archive-name: xcal/patch1
  15. Patch-To: xcal: Volume 10, Issue 99-101
  16.  
  17. --------
  18. Xcal is a calendar program. It generally sits on your screen
  19. displaying today's date - the format of this can be tailored to your
  20. taste.
  21.  
  22. The diffs below should only by applied to xcal 3.2 posted to the net
  23. as comp.sources.x, Volume 10 Issue 99-101. If you are unsure of the
  24. version, check the file version.c - this should contain the full truth.
  25.  
  26. Oh yes, what are the changes? These are documented in the CHANGES file
  27. (see below) - now more detailed because of someone's complaints.
  28.  
  29. I did this all in January and had hoped to add a number of more
  30. things to xcal and have a formidable mail folder full of fixes,
  31. suggestions and ideas. I do want to do something when the date strip
  32. gets too big for the screen, this is probably the biggest complaint.
  33.  
  34. I will eventually get around to dealing with fixes and new ideas. This
  35. patch set is being produced mostly because a number of people have
  36. asked for a way of dealing with regular events. Xcal purists will find
  37. that the basic date box now contains todays day as a string. The box
  38. grows alarmingly. You can mimic previous behaviour by using resources.
  39. Personally, I like it.
  40.  
  41. Thanks to the many people who have mailed to say thanks and added
  42. ideas to xcal. Sorry to the people who I refused to listen to or whose
  43. ideas I haven't used.
  44.  
  45.  
  46. Patch-To: xcal: Volume 10, Issue 99-101
  47.  
  48. ------------------------- patch from here --------------
  49. Prereq: 0
  50. *** patchlevel.h~    Fri Mar 22 23:34:53 1991
  51. --- patchlevel.h    Fri Mar 22 23:48:23 1991
  52. ***************
  53. *** 1 ****
  54. ! #define PATCHLEVEL 0
  55. --- 1 ----
  56. ! #define PATCHLEVEL 1
  57. *** CHANGES~    Fri Mar 22 23:34:58 1991
  58. --- CHANGES    Fri Mar 22 23:48:26 1991
  59. ***************
  60. *** 1,6 ****
  61. ! Changes:    CHANGES    2.2    12/5/90
  62.   
  63. ! Xcal - Version 3.1 Issued to comp.sources.x
  64.   
  65.       Adds the memo functionality and the Stick/Unpin feature
  66.       for alarms.
  67. --- 1,69 ----
  68. ! Changes:      CHANGES     2.12     91/03/22
  69.   
  70. ! --------------------------- 3.3
  71. ! 
  72. !     Implement the ability to deal with regular weekly events.
  73. !     This is part of the memo system. Today's current events are
  74. !     shown as part of the memo panel. They can be edited by hitting
  75. !     a button and bringing up a special strip with an entry for
  76. !     each day. These regular event files are integrated into
  77. !     the alarm system.
  78. ! 
  79. !     Allow today's name: Monday, Tuesday etc to appear in the top
  80. !     level widget, the header of an edit window and the title of
  81. !     the memo box. This is controlled by the Order and Format
  82. !     resources and so previous behaviour can be maintained. Beware
  83. !     that this redefines the names of the days so
  84. !         Sunday maps to Sunday
  85. !     and a new short name is used for the abbreviated form
  86. !         Sun maps to Sun
  87. !     used in date strips.
  88. ! 
  89. !     Ensure that middle and right button translations work in the
  90. !     memo button in the top level widget (suggested by Casey
  91. !     Leedom).
  92. ! 
  93. !     New Imakefile from Casey Leedom. This has support for pscal.
  94. !     New pscal/Imakefile.
  95. ! 
  96. !     Add initialMemo resource so the memo box can popup at startup
  97. !     time - (suggested by G. W. Pigman III)
  98. ! 
  99. !     Steven Plite pointed out that the year display is
  100. !     inconsistent. To allow choice, add three new resources:
  101. !         dateYearIsTwoDigits
  102. !         memoYearIsTwoDigits
  103. !         editYearIsTwoDigits
  104. !     You can now choose how you would like to have your year
  105. !     displayed in the various places.
  106. !     Defaults to showing four digits.
  107. ! 
  108. !     System V release 4 fixes from Dave McCraken.
  109. !     Alters: xcal_alarm.c, xcal_cal.c, *.bm xcal.c
  110. ! 
  111. !     The memo box quit button causes a Save File
  112. !     dialogue box to be popped if the memo data has been
  113. !     altered and not saved. The behaviour of this was wrong
  114. !     when there was no memo data.    Reported by Greg Bond.
  115. !     Fixed by changing tests in xcal_memo.c.
  116. ! 
  117. !     Proper length of a directory entry under SYSV is 
  118. !     strlen(dp->d_name) not strlen(dp->d_name)+1.
  119. !     Changed xcal_edit.c             (Dave McCraken)
  120. ! 
  121. !     Eliminated double definition of GetMemoFile() and incorrect
  122. !     definition of MemoHelp() in xcal_memo.c (David C Lawrence)
  123. ! 
  124. ! --------------------------- 3.2 
  125. ! 
  126. ! Xcal - Version 3.2 Issued to comp.sources.x
  127. ! 
  128. !     Fixes some stupid bugs
  129. !     Ensures that update code works properly
  130. ! 
  131. ! ---------------------------- 3.1
  132. ! 
  133. ! Xcal - Version 3.1 Issued to comp.sources.x (un-intentionally)
  134.   
  135.       Adds the memo functionality and the Stick/Unpin feature
  136.       for alarms.
  137. *** README~    Fri Mar 22 23:34:53 1991
  138. --- README    Fri Mar 22 23:48:23 1991
  139. ***************
  140. *** 26,37 ****
  141.   program. So you can generate pretty printed calendars whenever you
  142.   like - assuming that you have a PostScript printer.
  143.   
  144. ! This is release 3.2.
  145.   The history is:
  146.       Release 1.1  posted to comp.sources.x
  147.           + two patches
  148.       Release 2.1  circulated privately
  149. !     Release 3.1  circulated privately
  150.   
  151.   Caveats
  152.   
  153. --- 26,38 ----
  154.   program. So you can generate pretty printed calendars whenever you
  155.   like - assuming that you have a PostScript printer.
  156.   
  157. ! This is release 3.3
  158.   The history is:
  159.       Release 1.1  posted to comp.sources.x
  160.           + two patches
  161.       Release 2.1  circulated privately
  162. !     Release 3.1  posted unintentionally to comp.sources.x
  163. !     Release 3.2  posted to comp.sources.x
  164.   
  165.   Caveats
  166.   
  167. ***************
  168. *** 48,54 ****
  169.   Fax: +44 227 762554
  170.   Email: pc@hillside.co.uk
  171.   
  172. ! 18/December/1990
  173.   
  174.   Fixes/enhancements welcomed....
  175.   
  176. --- 49,55 ----
  177.   Fax: +44 227 762554
  178.   Email: pc@hillside.co.uk
  179.   
  180. ! 22/March/1990
  181.   
  182.   Fixes/enhancements welcomed....
  183.   
  184. *** Imakefile~    Fri Mar 22 23:34:48 1991
  185. --- Imakefile    Fri Mar 22 23:48:20 1991
  186. ***************
  187. *** 1,22 ****
  188. ! LOCAL_LIBRARIES = XawClientLibs
  189. !            INCS = xcal.h
  190. !            SRCS = xcal.c xcal_alarm.c xcal_edit.c xcal_help.c xcal_popup.c xcal_strip.c xcal_memo.c version.c
  191. !            OBJS = xcal.o xcal_alarm.o xcal_edit.o xcal_help.o xcal_popup.o xcal_strip.o xcal_memo.o version.o
  192.    OSMAJORVERSION = OSMajorVersion
  193.    OSMINORVERSION = OSMinorVersion
  194. !       DEFINES = -DOSMAJORVERSION=$(OSMAJORVERSION) -DOSMINORVERSION=$(OSMINORVERSION) -DVER_VEC
  195.   
  196.   
  197. ! AllTarget(xcal)
  198. ! NormalProgramTarget(xcal,$(OBJS),$(DEPLIBS),$(LOCAL_LIBRARIES), /**/)
  199.   
  200. ! AllTarget(xcal_cal)
  201. ! NormalProgramTarget(xcal_cal, xcal_cal.o,/**/,/**/,/**/);
  202.   
  203. ! InstallProgram(xcal, $(BINDIR))
  204. ! InstallManPage(xcal, $(MANDIR))
  205. ! InstallProgram(xcal_cal, $(BINDIR))
  206. ! InstallManPage(xcal_cal, $(MANDIR))
  207.   InstallAppDefaults(XCal)
  208.   
  209. ! DependTarget()
  210. --- 1,35 ----
  211. ! /*
  212. !  * Define InstallPsCal if you want to have pscal compiled and installed as
  213. !  * part of the xcal compilation and installation.
  214. !  */
  215. ! /* #define InstallPsCal */
  216. ! 
  217.    OSMAJORVERSION = OSMajorVersion
  218.    OSMINORVERSION = OSMinorVersion
  219. !         DEFINES = -DOSMAJORVERSION=$(OSMAJORVERSION) \
  220. !           -DOSMINORVERSION=$(OSMINORVERSION) \
  221. !           -DVER_VEC
  222.   
  223. +           SRCS1 = xcal.c xcal_alarm.c xcal_edit.c xcal_help.c xcal_popup.c \
  224. +           xcal_strip.c xcal_memo.c version.c
  225. +           OBJS1 = xcal.o xcal_alarm.o xcal_edit.o xcal_help.o xcal_popup.o \
  226. +           xcal_strip.o xcal_memo.o version.o
  227.   
  228. !           SRCS2 = xcal_cal.c
  229. !           OBJS2 = xcal_cal.o
  230.   
  231. !        PROGRAMS = xcal xcal_cal
  232.   
  233. ! ComplexProgramTarget_1(xcal, XawClientLibs, /**/)
  234. ! ComplexProgramTarget_2(xcal_cal, /**/, /**/)
  235.   InstallAppDefaults(XCal)
  236.   
  237. ! #ifdef InstallPsCal
  238. ! #define IHaveSubdirs
  239. ! #define PassCDebugFlags 'CDEBUGFLAGS=$(CDEBUGFLAGS)'
  240. ! 
  241. !         SUBDIRS = pscal
  242. ! 
  243. ! MakeSubdirs($(SUBDIRS))
  244. ! DependSubdirs($(SUBDIRS))
  245. ! #endif
  246. *** Makefile~    Fri Mar 22 23:34:55 1991
  247. --- Makefile    Fri Mar 22 23:48:24 1991
  248. ***************
  249. *** 225,273 ****
  250.   ###########################################################################
  251.   # start of Imakefile
  252.   
  253. - LOCAL_LIBRARIES = $(XAWLIB) $(XMULIB) $(XTOOLLIB) $(XLIB)
  254. -            INCS = xcal.h
  255. -            SRCS = xcal.c xcal_alarm.c xcal_edit.c xcal_help.c xcal_popup.c xcal_strip.c xcal_memo.c version.c
  256. -            OBJS = xcal.o xcal_alarm.o xcal_edit.o xcal_help.o xcal_popup.o xcal_strip.o xcal_memo.o version.o
  257.    OSMAJORVERSION = 4
  258.    OSMINORVERSION = 1
  259. !       DEFINES = -DOSMAJORVERSION=$(OSMAJORVERSION) -DOSMINORVERSION=$(OSMINORVERSION) -DVER_VEC
  260.   
  261. ! all:: xcal
  262.   
  263. ! xcal: $(OBJS) $(DEPLIBS)
  264. !     $(RM) $@
  265. !     $(CC) -o $@ $(OBJS) $(LDOPTIONS) $(LOCAL_LIBRARIES) $(LDLIBS)   $(EXTRA_LOAD_FLAGS)
  266.   
  267. ! clean::
  268. !     $(RM) xcal
  269.   
  270. ! all:: xcal_cal
  271.   
  272. ! xcal_cal:  xcal_cal.o
  273.       $(RM) $@
  274. !     $(CC) -o $@  xcal_cal.o $(LDOPTIONS)  $(LDLIBS)  $(EXTRA_LOAD_FLAGS)
  275.   
  276. - clean::
  277. -     $(RM) xcal_cal;
  278. - 
  279.   install:: xcal
  280. !     $(INSTALL) -c $(INSTPGMFLAGS)   xcal  $(BINDIR)
  281.   
  282.   install.man:: xcal.man
  283. !     $(INSTALL) -c $(INSTMANFLAGS) xcal.man  $(MANDIR)/xcal.n
  284.   
  285.   install:: xcal_cal
  286. !     $(INSTALL) -c $(INSTPGMFLAGS)   xcal_cal  $(BINDIR)
  287.   
  288.   install.man:: xcal_cal.man
  289. !     $(INSTALL) -c $(INSTMANFLAGS) xcal_cal.man  $(MANDIR)/xcal_cal.n
  290.   
  291.   install:: XCal.ad
  292.       $(INSTALL) -c $(INSTAPPFLAGS) XCal.ad $(XAPPLOADDIR)/XCal
  293. - 
  294. - depend::
  295. -     $(DEPEND) -s "# DO NOT DELETE" -- $(ALLDEFINES) -- $(SRCS)
  296.   
  297.   ###########################################################################
  298.   # common rules for all Makefiles - do not edit
  299. --- 225,284 ----
  300.   ###########################################################################
  301.   # start of Imakefile
  302.   
  303.    OSMAJORVERSION = 4
  304.    OSMINORVERSION = 1
  305. !         DEFINES = -DOSMAJORVERSION=$(OSMAJORVERSION) \
  306. !           -DOSMINORVERSION=$(OSMINORVERSION) \
  307. !           -DVER_VEC
  308.   
  309. !           SRCS1 = xcal.c xcal_alarm.c xcal_edit.c xcal_help.c xcal_popup.c \
  310. !           xcal_strip.c xcal_memo.c version.c
  311. !           OBJS1 = xcal.o xcal_alarm.o xcal_edit.o xcal_help.o xcal_popup.o \
  312. !           xcal_strip.o xcal_memo.o version.o
  313.   
  314. !           SRCS2 = xcal_cal.c
  315. !           OBJS2 = xcal_cal.o
  316.   
  317. !        PROGRAMS = xcal xcal_cal
  318.   
  319. !  OBJS = $(OBJS1) $(OBJS2) $(OBJS3)
  320. !  SRCS = $(SRCS1) $(SRCS2) $(SRCS3)
  321.   
  322. ! all:: $(PROGRAMS)
  323. ! 
  324. ! xcal: $(OBJS1) $(DEPLIBS1)
  325.       $(RM) $@
  326. !     $(CC) -o $@ $(LDOPTIONS) $(OBJS1)  $(XAWLIB) $(XMULIB) $(XTOOLLIB) $(XLIB) $(LDLIBS)   $(EXTRA_LOAD_FLAGS)
  327.   
  328.   install:: xcal
  329. !     $(INSTALL) -c $(INSTPGMFLAGS)   xcal $(BINDIR)
  330.   
  331.   install.man:: xcal.man
  332. !     $(INSTALL) -c $(INSTMANFLAGS) xcal.man $(MANDIR)/xcal.n
  333.   
  334. + depend::
  335. +     $(DEPEND) -s "# DO NOT DELETE" -- $(ALLDEFINES) -- $(SRCS)
  336. + 
  337. + lint:
  338. +     $(LINT) $(LINTFLAGS) $(SRCS) $(LINTLIBS)
  339. + lint1:
  340. +     $(LINT) $(LINTFLAGS) $(FILE) $(LINTLIBS)
  341. + 
  342. + clean::
  343. +     $(RM) $(PROGRAMS)
  344. + 
  345. + xcal_cal: $(OBJS2) $(DEPLIBS2)
  346. +     $(RM) $@
  347. +     $(CC) -o $@ $(LDOPTIONS) $(OBJS2)   $(LDLIBS)   $(EXTRA_LOAD_FLAGS)
  348. + 
  349.   install:: xcal_cal
  350. !     $(INSTALL) -c $(INSTPGMFLAGS)   xcal_cal $(BINDIR)
  351.   
  352.   install.man:: xcal_cal.man
  353. !     $(INSTALL) -c $(INSTMANFLAGS) xcal_cal.man $(MANDIR)/xcal_cal.n
  354.   
  355.   install:: XCal.ad
  356.       $(INSTALL) -c $(INSTAPPFLAGS) XCal.ad $(XAPPLOADDIR)/XCal
  357.   
  358.   ###########################################################################
  359.   # common rules for all Makefiles - do not edit
  360. *** XCal.ad~    Fri Mar 22 23:34:51 1991
  361. --- XCal.ad    Fri Mar 22 23:48:21 1991
  362. ***************
  363. *** 1,8 ****
  364.   XCal.MarkForeground: Black
  365.   XCal.MarkBackground: White
  366. ! XCal.edit.geometry: 300x150
  367. ! XCal.memo.geometry: 300x300
  368. ! XCal.alarm.geometry: 300x100+0+150
  369.   XCal*help.geometry: 600x300
  370.   XCal.fontToday: lucidasanstypewriter-12
  371.   XCal*Font: lucidasanstypewriter-12
  372. --- 1,8 ----
  373.   XCal.MarkForeground: Black
  374.   XCal.MarkBackground: White
  375. ! XCal.edit.geometry: 325x150
  376. ! XCal.memo.geometry: 325x300
  377. ! XCal.alarm.geometry: 325x100+0+150
  378.   XCal*help.geometry: 600x300
  379.   XCal.fontToday: lucidasanstypewriter-12
  380.   XCal*Font: lucidasanstypewriter-12
  381. ***************
  382. *** 40,45 ****
  383. --- 40,48 ----
  384.   XCal*alarmQuit.Label: Unpin
  385.   XCal*alarmHold.Label: Stick
  386.   XCal*memoTitle.Label: Edit the memo file
  387. + XCal*weeklyEdit.Label: Edit
  388. + XCal*weeklyTitle.Label: Today's regular events
  389. + 
  390.   !
  391.   ! Colours from reed wade@cs.utk.edu
  392.   !
  393. *** mouse.bm~    Fri Mar 22 23:34:58 1991
  394. --- mouse.bm    Fri Mar 22 23:48:26 1991
  395. ***************
  396. *** 1,6 ****
  397.   #define mouse_width 16
  398.   #define mouse_height 13
  399. ! static char mouse_bits[] = {
  400.      0xfe, 0x7f, 0xff, 0xff, 0x21, 0x84, 0xa1, 0xb5, 0xa1, 0xb5, 0xa1, 0xb5,
  401.      0xa1, 0xb5, 0xa1, 0xb5, 0xa1, 0xb5, 0x21, 0x84, 0xff, 0xff, 0xff, 0xff,
  402.      0xff, 0xff};
  403. --- 1,6 ----
  404.   #define mouse_width 16
  405.   #define mouse_height 13
  406. ! static unsigned char mouse_bits[] = {
  407.      0xfe, 0x7f, 0xff, 0xff, 0x21, 0x84, 0xa1, 0xb5, 0xa1, 0xb5, 0xa1, 0xb5,
  408.      0xa1, 0xb5, 0xa1, 0xb5, 0xa1, 0xb5, 0x21, 0x84, 0xff, 0xff, 0xff, 0xff,
  409.      0xff, 0xff};
  410. *** mouseaway.bm~    Fri Mar 22 23:34:58 1991
  411. --- mouseaway.bm    Fri Mar 22 23:48:26 1991
  412. ***************
  413. *** 1,6 ****
  414.   #define mouseaway_width 16
  415.   #define mouseaway_height 13
  416. ! static char mouseaway_bits[] = {
  417.      0xfe, 0x7f, 0xff, 0xff, 0x21, 0x84, 0xad, 0xb5, 0xad, 0xb5, 0xad, 0xb5,
  418.      0xad, 0xb5, 0xad, 0xb5, 0xad, 0xb5, 0x21, 0x84, 0xff, 0xff, 0xff, 0xff,
  419.      0xff, 0xff};
  420. --- 1,6 ----
  421.   #define mouseaway_width 16
  422.   #define mouseaway_height 13
  423. ! static unsigned char mouseaway_bits[] = {
  424.      0xfe, 0x7f, 0xff, 0xff, 0x21, 0x84, 0xad, 0xb5, 0xad, 0xb5, 0xad, 0xb5,
  425.      0xad, 0xb5, 0xad, 0xb5, 0xad, 0xb5, 0x21, 0x84, 0xff, 0xff, 0xff, 0xff,
  426.      0xff, 0xff};
  427. *** version.c~    Fri Mar 22 23:34:48 1991
  428. --- version.c    Fri Mar 22 23:48:20 1991
  429. ***************
  430. *** 1,10 ****
  431.   #ifndef lint
  432. ! static char *sccsid = "@(#)version.c    3.2 (Hillside Systems) 12/18/90";
  433.   #endif  /* lint */
  434.   /*
  435.    *    Version control file
  436. !  *    version.c    3.2    12/18/90
  437. !  *    Automatically created on Tue Dec 18 21:15:55 GMT 1990
  438.    *    
  439.    *    Hand edit none of this if you want freeze to continue to work
  440.    */
  441. --- 1,10 ----
  442.   #ifndef lint
  443. ! static char *sccsid = "@(#)version.c    3.3 (Hillside Systems) 3/22/91";
  444.   #endif  /* lint */
  445.   /*
  446.    *    Version control file
  447. !  *    version.c    3.3    3/22/91
  448. !  *    Automatically created on Fri Mar 22 23:48:16 GMT 1991
  449.    *    
  450.    *    Hand edit none of this if you want freeze to continue to work
  451.    */
  452. ***************
  453. *** 12,43 ****
  454.   #define    PROGNAME    XCal
  455.   #endif
  456.   #ifdef    VER_VEC
  457. ! char    version[] = "XCal Version 3.2, released Tue Dec 18 21:15:55 GMT 1990";
  458.   #endif
  459.   #ifdef    VER_DEF
  460. ! #define    VERSION    "XCal Version 3.2, released Tue Dec 18 21:15:55 GMT 1990"
  461.   #endif
  462.   
  463.   /*    SCCS files
  464.    *
  465. ! +1.7    Imakefile
  466. ! +3.5    xcal_help.c
  467. ! +1.4    xcal_cal.c
  468. ! +1.12    xcal.man
  469. ! +1.5    xcal_memo.c
  470. ! +1.10    XCal.ad
  471. ! +1.10    xcal_alarm.c
  472. ! +3.9    xcal_edit.c
  473. ! +1.4    README
  474. ! +2.1    patchlevel.h
  475. ! +3.6    xcal_strip.c
  476.   +1.2    xcal_cal.man
  477. ! +1.8    Makefile
  478. ! +3.4    xcal_popup.c
  479. ! +3.13    xcal.c
  480. ! +3.8    xcal.h
  481. ! +2.2    CHANGES
  482. ! +1.1    mouse.bm
  483. ! +1.1    mouseaway.bm
  484.    *
  485.    */
  486. --- 12,43 ----
  487.   #define    PROGNAME    XCal
  488.   #endif
  489.   #ifdef    VER_VEC
  490. ! char    version[] = "XCal Version 3.3, released Fri Mar 22 23:48:16 GMT 1991";
  491.   #endif
  492.   #ifdef    VER_DEF
  493. ! #define    VERSION    "XCal Version 3.3, released Fri Mar 22 23:48:16 GMT 1991"
  494.   #endif
  495.   
  496.   /*    SCCS files
  497.    *
  498. ! +1.9    Imakefile
  499. ! +3.6    xcal_help.c
  500. ! +1.6    xcal_cal.c
  501. ! +1.17    xcal.man
  502. ! +1.11    xcal_memo.c
  503. ! +1.13    XCal.ad
  504. ! +1.13    xcal_alarm.c
  505. ! +3.15    xcal_edit.c
  506. ! +1.6    README
  507. ! +2.2    patchlevel.h
  508. ! +3.10    xcal_strip.c
  509.   +1.2    xcal_cal.man
  510. ! +1.10    Makefile
  511. ! +3.5    xcal_popup.c
  512. ! +3.22    xcal.c
  513. ! +3.14    xcal.h
  514. ! +2.12    CHANGES
  515. ! +1.2    mouse.bm
  516. ! +1.2    mouseaway.bm
  517.    *
  518.    */
  519. *** xcal.c~    Fri Mar 22 23:34:56 1991
  520. --- xcal.c    Fri Mar 22 23:48:25 1991
  521. ***************
  522. *** 1,5 ****
  523.   #ifndef lint
  524. ! static char *sccsid = "@(#)xcal.c    3.13 (Hillside Systems) 12/7/90";
  525.   static char *copyright = "@(#)Copyright 1989,1990 Peter Collinson, Hillside Systems";
  526.   #endif  /* lint */
  527.   /***
  528. --- 1,5 ----
  529.   #ifndef lint
  530. ! static char *sccsid = "@(#)xcal.c    3.22 (Hillside Systems) 1/16/91";
  531.   static char *copyright = "@(#)Copyright 1989,1990 Peter Collinson, Hillside Systems";
  532.   #endif  /* lint */
  533.   /***
  534. ***************
  535. *** 13,18 ****
  536. --- 13,19 ----
  537.       -format str    use str as a display format
  538.       -order    ord    set the argument order to this
  539.       -debug        run quickly incrementing time - 1 day per sec
  540. +     -alarmscan    print alarm debug info
  541.   * libraries used:
  542.       libXaw.a, libXmu.a libXt.a libX11.a
  543.   * compile time parameters:
  544. ***************
  545. *** 91,96 ****
  546. --- 92,99 ----
  547.       offset(initialCalendar), XtRString, "False" },
  548.   {"initialEdit", "InitialEdit", XtRBoolean, sizeof(Boolean),
  549.       offset(initialEdit), XtRString, "False" },
  550. + {"initialMemo", "InitialMemo", XtRBoolean, sizeof(Boolean),
  551. +     offset(initialMemo), XtRString, "False" },
  552.   {"markForeground", "MarkForeground", XtRPixel, sizeof(Pixel),
  553.       offset(marked.fg), XtRString, "White" },
  554.   {"markBackground", "MarkBackground", XtRPixel, sizeof(Pixel),
  555. ***************
  556. *** 104,112 ****
  557.   {"todayBackground", "TodayBackground", XtRPixel, sizeof(Pixel),
  558.       offset(today.bg), XtRString, "Black" },
  559.   {"format", "Format",XtRString, sizeof(String),
  560. !     offset(opfmt), XtRString, "%2d %s %d"},
  561.   {"order", "Order", XtRString, sizeof(String),
  562. !     offset(order), XtRString, "dmy"},
  563.   {"directory", "Directory", XtRString, sizeof(String),
  564.       offset(directory), XtRString, "Calendar"},
  565.   {"textBufferSize", "TextBufferSize", XtRInt, sizeof(int),
  566. --- 107,121 ----
  567.   {"todayBackground", "TodayBackground", XtRPixel, sizeof(Pixel),
  568.       offset(today.bg), XtRString, "Black" },
  569.   {"format", "Format",XtRString, sizeof(String),
  570. !     offset(opfmt), XtRString, "%s %2d %s %d"},
  571.   {"order", "Order", XtRString, sizeof(String),
  572. !     offset(order), XtRString, "wdmy"},
  573. ! {"dateYearIsTwoDigits", "DateYearIsTwoDigits", XtRBoolean, sizeof(Boolean),
  574. !     offset(dateYearIs2), XtRString, "False" },
  575. ! {"editYearIsTwoDigits", "EditYearIsTwoDigits", XtRBoolean, sizeof(Boolean),
  576. !     offset(editYearIs2), XtRString, "False" },
  577. ! {"memoYearIsTwoDigits", "MemoYearIsTwoDigits", XtRBoolean, sizeof(Boolean),
  578. !     offset(memoYearIs2), XtRString, "False" },
  579.   {"directory", "Directory", XtRString, sizeof(String),
  580.       offset(directory), XtRString, "Calendar"},
  581.   {"textBufferSize", "TextBufferSize", XtRInt, sizeof(int),
  582. ***************
  583. *** 164,182 ****
  584.   {"dec", "Dec", XtRString, sizeof(String),
  585.       offset(smon[11]), XtRString, "Dec"},
  586.   {"sunday", "Sunday", XtRString, sizeof(String),
  587. !     offset(day[0]), XtRString, "Sun"},
  588.   {"monday", "Monday", XtRString, sizeof(String),
  589. !     offset(day[1]), XtRString, "Mon"},
  590.   {"tuesday", "Tuesday", XtRString, sizeof(String),
  591. !     offset(day[2]), XtRString, "Tue"},
  592.   {"wednesday", "Wednesday", XtRString, sizeof(String),
  593. !     offset(day[3]), XtRString, "Wed"},
  594.   {"thursday", "Thursday", XtRString, sizeof(String),
  595. !     offset(day[4]), XtRString, "Thu"},
  596.   {"friday", "Friday", XtRString, sizeof(String),
  597. !     offset(day[5]), XtRString, "Fri"},
  598.   {"saturday", "Saturday", XtRString, sizeof(String),
  599. !     offset(day[6]), XtRString, "Sat"},
  600.   {"alarms", "Alarms", XtRBoolean, sizeof(Boolean),
  601.       offset(alarms), XtRString, "True"},
  602.   {"update", "Update", XtRInt, sizeof(int),
  603. --- 173,207 ----
  604.   {"dec", "Dec", XtRString, sizeof(String),
  605.       offset(smon[11]), XtRString, "Dec"},
  606.   {"sunday", "Sunday", XtRString, sizeof(String),
  607. !     offset(day[0]), XtRString, "Sunday"},
  608.   {"monday", "Monday", XtRString, sizeof(String),
  609. !     offset(day[1]), XtRString, "Monday"},
  610.   {"tuesday", "Tuesday", XtRString, sizeof(String),
  611. !     offset(day[2]), XtRString, "Tuesday"},
  612.   {"wednesday", "Wednesday", XtRString, sizeof(String),
  613. !     offset(day[3]), XtRString, "Wednesday"},
  614.   {"thursday", "Thursday", XtRString, sizeof(String),
  615. !     offset(day[4]), XtRString, "Thursday"},
  616.   {"friday", "Friday", XtRString, sizeof(String),
  617. !     offset(day[5]), XtRString, "Friday"},
  618.   {"saturday", "Saturday", XtRString, sizeof(String),
  619. !     offset(day[6]), XtRString, "Saturday"},
  620. ! {"sun", "Sun", XtRString, sizeof(String),
  621. !     offset(sday[0]), XtRString, "Sun"},
  622. ! {"mon", "Mon", XtRString, sizeof(String),
  623. !     offset(sday[1]), XtRString, "Mon"},
  624. ! {"tue", "Tue", XtRString, sizeof(String),
  625. !     offset(sday[2]), XtRString, "Tue"},
  626. ! {"wed", "Wed", XtRString, sizeof(String),
  627. !     offset(sday[3]), XtRString, "Wed"},
  628. ! {"thu", "Thu", XtRString, sizeof(String),
  629. !     offset(sday[4]), XtRString, "Thu"},
  630. ! {"fri", "Fri", XtRString, sizeof(String),
  631. !     offset(sday[5]), XtRString, "Fri"},
  632. ! {"sat", "Sat", XtRString, sizeof(String),
  633. !     offset(sday[6]), XtRString, "Sat"},
  634. ! {"weekly", "Weekly", XtRString, sizeof(String),
  635. !     offset(weekly), XtRString, "Weekly"},
  636.   {"alarms", "Alarms", XtRBoolean, sizeof(Boolean),
  637.       offset(alarms), XtRString, "True"},
  638.   {"update", "Update", XtRInt, sizeof(int),
  639. ***************
  640. *** 231,240 ****
  641.   /*
  642.    *    Forward routines local to this file
  643.    */
  644. ! void    MkDate();
  645. ! void    DebugMkDate();
  646. ! void    DoTemplate();
  647. ! void    DecodeOrder();
  648.   #include "mouse.bm"
  649.   #include "mouseaway.bm"
  650.   
  651. --- 256,267 ----
  652.   /*
  653.    *    Forward routines local to this file
  654.    */
  655. ! static void    MkDate();
  656. ! static void    DebugMkDate();
  657. ! static void    DoTemplate();
  658. ! static void    DecodeOrder();
  659. ! static void    PixInit();
  660. ! 
  661.   #include "mouse.bm"
  662.   #include "mouseaway.bm"
  663.   
  664. ***************
  665. *** 362,367 ****
  666. --- 389,396 ----
  667.       }
  668.       XtAddActions(appActions, 3);    /* register actions */
  669.       XtAugmentTranslations(lab, XtParseTranslationTable(defTranslations));
  670. +     if (appResources.useMemo)
  671. +         XtAugmentTranslations(memo, XtParseTranslationTable(defTranslations));
  672.   
  673.       XtMapWidget(toplevel);
  674.   
  675. ***************
  676. *** 377,390 ****
  677. --- 406,424 ----
  678.               StartEditing(lab, &today);
  679.       }
  680.   
  681. +     if (appResources.useMemo && appResources.initialMemo)
  682. +         DoMemo(memo, NULL, NULL);
  683. +         
  684.       InitAlarms();
  685.       
  686.       XtMainLoop();
  687. +     exit(0);
  688.   }
  689.   
  690.   /*
  691.    *    Initialise Pixmaps
  692.    */
  693. + static void
  694.   PixInit(toplevel)
  695.       Widget    toplevel;
  696.   {
  697. ***************
  698. *** 392,406 ****
  699.   
  700.       MouseOnPix = XCreateBitmapFromData(theDisplay,
  701.                     DefaultRootWindow(theDisplay),
  702. !                   mouse_bits, mouse_width, mouse_height);
  703.       MouseOffPix = XCreateBitmapFromData(theDisplay,
  704.                     DefaultRootWindow(theDisplay),
  705. !                   mouseaway_bits, mouseaway_width, mouseaway_height);
  706.   }
  707.   
  708.   /*
  709.    *    Flip mouse state
  710.    */
  711.   MouseShow(w, OnOff)
  712.       Widget    w;
  713.       Boolean OnOff;
  714. --- 426,441 ----
  715.   
  716.       MouseOnPix = XCreateBitmapFromData(theDisplay,
  717.                     DefaultRootWindow(theDisplay),
  718. !                   (char *)mouse_bits, mouse_width, mouse_height);
  719.       MouseOffPix = XCreateBitmapFromData(theDisplay,
  720.                     DefaultRootWindow(theDisplay),
  721. !                   (char *)mouseaway_bits, mouseaway_width, mouseaway_height);
  722.   }
  723.   
  724.   /*
  725.    *    Flip mouse state
  726.    */
  727. + void
  728.   MouseShow(w, OnOff)
  729.       Widget    w;
  730.       Boolean OnOff;
  731. ***************
  732. *** 417,422 ****
  733. --- 452,458 ----
  734.    */
  735.   void
  736.   Leave(retval)
  737. +     int retval;
  738.   {    exit(retval);
  739.   }
  740.   
  741. ***************
  742. *** 440,445 ****
  743. --- 476,482 ----
  744.       dp->day = tm->tm_mday;
  745.       dp->month = tm->tm_mon;
  746.       dp->year = tm->tm_year + 1900;
  747. +     dp->wday = tm->tm_wday;
  748.   }
  749.   
  750.   
  751. ***************
  752. *** 454,466 ****
  753.       if (timedOut)
  754.           yesterday = today;
  755.           
  756. !     ti = time(0);
  757.       tm = localtime(&ti);
  758.   
  759.       ConvDate(tm, &today);
  760.   
  761. !     PlaceStr(date_area,
  762. !             tm->tm_mday, appResources.mon[tm->tm_mon], tm->tm_year);
  763.       XtSetValues(w, wargs, 1);
  764.   
  765.       if (timedOut)
  766. --- 491,503 ----
  767.       if (timedOut)
  768.           yesterday = today;
  769.           
  770. !     (void) time(&ti);
  771.       tm = localtime(&ti);
  772.   
  773.       ConvDate(tm, &today);
  774.   
  775. !     PlaceStr(date_area, &today, appResources.dateYearIs2);
  776. ! 
  777.       XtSetValues(w, wargs, 1);
  778.   
  779.       if (timedOut)
  780. ***************
  781. *** 486,499 ****
  782.           yesterday = today;
  783.           
  784.       if (ti == 0)
  785. !         ti = time(0);
  786.       else    ti += 24*60*60;
  787.       
  788.       tm = localtime(&ti);
  789.       ConvDate(tm, &today);
  790.       
  791. !     PlaceStr(date_area,
  792. !           tm->tm_mday, appResources.mon[tm->tm_mon], tm->tm_year);
  793.       XtSetValues(w, wargs, 1);
  794.   
  795.       if (timedOut)
  796. --- 523,536 ----
  797.           yesterday = today;
  798.           
  799.       if (ti == 0)
  800. !         (void) time(&ti);
  801.       else    ti += 24*60*60;
  802.       
  803.       tm = localtime(&ti);
  804.       ConvDate(tm, &today);
  805.       
  806. !     PlaceStr(date_area, &today, appResources.dateYearIs2);
  807. ! 
  808.       XtSetValues(w, wargs, 1);
  809.   
  810.       if (timedOut)
  811. ***************
  812. *** 513,529 ****
  813.    */
  814.   static void
  815.   DoTemplate()
  816. ! {    int    maxmon;
  817.       int    i;
  818.       int    len;
  819.       char    trial[BUFSIZ];
  820.   
  821.   
  822. !     for (maxmon = i = 0; i < 12; i++)
  823. !     {    PlaceStr(trial, 99, appResources.mon[i], 99);
  824.           len = strlen(trial);
  825. !         if (len > maxmon)
  826. !         {    maxmon = len;
  827.               strcpy(date_area, trial);
  828.           }
  829.       }
  830. --- 550,578 ----
  831.    */
  832.   static void
  833.   DoTemplate()
  834. ! {    int    max;
  835.       int    i;
  836.       int    len;
  837.       char    trial[BUFSIZ];
  838. +     Date    da;
  839.   
  840. +     da.day = 99;
  841. +     da.year = 9999;
  842.   
  843. !     for (da.wday = max = i = 0; i < 7; i++)
  844. !     {    len = strlen(appResources.day[i]);
  845. !         if (len > max)
  846. !         {    max = len;
  847. !             da.wday = i;
  848. !         }
  849. !     }
  850. ! 
  851. !     for (max = i = 0; i < 12; i++)
  852. !     {    da.month = i;
  853. !         PlaceStr(trial, &da, appResources.dateYearIs2);
  854.           len = strlen(trial);
  855. !         if (len > max)
  856. !         {    max = len;
  857.               strcpy(date_area, trial);
  858.           }
  859.       }
  860. ***************
  861. *** 536,565 ****
  862.   DecodeOrder()
  863.   {
  864.       register char    *p;
  865. ! 
  866.       p = appResources.order;
  867.   
  868. !     if (*p == 'd' && strcmp(p, "dmy") == 0)
  869. !         appResources.val_order = O_DMY;
  870.       else
  871.       if (*p == 'y')
  872. !     {    if (strcmp(p, "ymd") == 0)
  873. !             appResources.val_order = O_YMD;
  874.           else
  875. !         if (strcmp(p, "ydm") == 0)
  876. !             appResources.val_order = O_YDM;
  877.           else
  878. !             appResources.val_order = -1;
  879.       }
  880.       else
  881. !     if (*p == 'm' && strcmp(p, "mdy") == 0)
  882. !         appResources.val_order = O_MDY;
  883.       else
  884. !         appResources.val_order = -1;
  885. !     if (appResources.val_order == -1)
  886.       {    fprintf(stderr, "Unknown order: %s\n", p);
  887. !         appResources.val_order = O_DMY;
  888.       }
  889.   }
  890.               
  891.   /*
  892. --- 585,626 ----
  893.   DecodeOrder()
  894.   {
  895.       register char    *p;
  896. !     int    order = 0;
  897. !     int    addweekday = 0;
  898. !     
  899.       p = appResources.order;
  900.   
  901. !     if (*p == 'w')
  902. !     {    addweekday = O_WEEKLEFT;
  903. !         p++;
  904. !     }
  905. !     
  906. !     if (*p == 'd' && strncmp(p, "dmy", 3) == 0)
  907. !         order = O_DMY;
  908.       else
  909.       if (*p == 'y')
  910. !     {    if (strncmp(p, "ymd", 3) == 0)
  911. !             order = O_YMD;
  912.           else
  913. !         if (strncmp(p, "ydm", 3) == 0)
  914. !             order = O_YDM;
  915.           else
  916. !             order = -1;
  917.       }
  918.       else
  919. !     if (*p == 'm' && strncmp(p, "mdy", 3) == 0)
  920. !         order = O_MDY;
  921.       else
  922. !         order = -1;
  923. !     if (order == -1)
  924.       {    fprintf(stderr, "Unknown order: %s\n", p);
  925. !         order = O_DMY;
  926.       }
  927. + 
  928. +     if (addweekday == 0 && p[3] == 'w')
  929. +         addweekday = O_WEEKRIGHT;
  930. + 
  931. +     appResources.val_order = order | addweekday;
  932.   }
  933.               
  934.   /*
  935. ***************
  936. *** 566,581 ****
  937.    *    make a string
  938.    */
  939.   void
  940. ! PlaceStr(dest, d, m, y)
  941.       String    dest;
  942. !     int    d;
  943. !     String    m;
  944. !     int    y;
  945.   {
  946.       register String fmt;
  947.   
  948.       if (y > 99 && y < 1900)
  949.           y -= 100;
  950.           
  951.       fmt = appResources.opfmt;
  952.       
  953. --- 627,648 ----
  954.    *    make a string
  955.    */
  956.   void
  957. ! PlaceStr(dest, da, is2)
  958.       String    dest;
  959. !     Date    *da;
  960. !     Boolean is2;
  961.   {
  962.       register String fmt;
  963. +     int    d = da->day;
  964. +     String    m = appResources.mon[da->month];
  965. +     int    y = da->year;
  966. +     String    w = appResources.day[da->wday];
  967.   
  968.       if (y > 99 && y < 1900)
  969.           y -= 100;
  970. + 
  971. +     if (is2)
  972. +         y %= 100;
  973.           
  974.       fmt = appResources.opfmt;
  975.       
  976. ***************
  977. *** 584,597 ****
  978. --- 651,688 ----
  979.       case O_DMY:        /* default */
  980.           (void) sprintf(dest, fmt, d, m, y);
  981.           break;
  982. +     case O_DMY|O_WEEKLEFT:
  983. +         (void) sprintf(dest, fmt, w, d, m, y);
  984. +         break;
  985. +     case O_DMY|O_WEEKRIGHT:
  986. +         (void) sprintf(dest, fmt, d, m, y, w);
  987. +         break;
  988.       case O_YMD:        /* Year/Month/Day */
  989.           (void) sprintf(dest, fmt, y, m, d);
  990.           break;
  991. +     case O_YMD|O_WEEKLEFT:    /* Year/Month/Day */
  992. +         (void) sprintf(dest, fmt, w, y, m, d);
  993. +         break;
  994. +     case O_YMD|O_WEEKRIGHT:    /* Year/Month/Day */
  995. +         (void) sprintf(dest, fmt, y, m, d, w);
  996. +         break;
  997.       case O_MDY:        /* Month/Day/Year */
  998.           (void) sprintf(dest, fmt, m, d, y);
  999.           break;
  1000. +     case O_MDY|O_WEEKLEFT:    /* Month/Day/Year */
  1001. +         (void) sprintf(dest, fmt, w, m, d, y);
  1002. +         break;
  1003. +     case O_MDY|O_WEEKRIGHT:    /* Month/Day/Year */
  1004. +         (void) sprintf(dest, fmt, m, d, y, w);
  1005. +         break;
  1006.       case O_YDM:        /* Year/Day/Month */
  1007.           (void) sprintf(dest, fmt, y, d, m);
  1008. +         break;
  1009. +     case O_YDM|O_WEEKLEFT:    /* Year/Day/Month */
  1010. +         (void) sprintf(dest, fmt, w, y, d, m);
  1011. +         break;
  1012. +     case O_YDM|O_WEEKRIGHT:    /* Year/Day/Month */
  1013. +         (void) sprintf(dest, fmt, y, d, m, w);
  1014.           break;
  1015.       }
  1016.   }
  1017. *** xcal.h~    Fri Mar 22 23:34:57 1991
  1018. --- xcal.h    Fri Mar 22 23:48:25 1991
  1019. ***************
  1020. *** 1,5 ****
  1021.   /*
  1022. !  *    xcal.h    3.8    12/12/90
  1023.    *
  1024.    *    Header file for the xcal program
  1025.    */
  1026. --- 1,5 ----
  1027.   /*
  1028. !  *    xcal.h    3.14    1/16/91
  1029.    *
  1030.    *    Header file for the xcal program
  1031.    */
  1032. ***************
  1033. *** 10,28 ****
  1034.    *    so undef if not true
  1035.    *    and fiddle with the definitions below
  1036.    */
  1037. ! #define    LONG_IS_32_BITS
  1038.   
  1039.   /* pack year and month into Cardinals */
  1040.   #ifdef LONG_IS_32_BITS
  1041. ! #define    DatePack(d, m, y)    ((((d)&0x1f)<<16) | (((m)&0xf)<<12) | ((y)&0xfff))
  1042.   #define YrUnpack(v)    ((v)&0xfff)
  1043.   #define MoUnpack(v)    (((v)>>12)&0xf)
  1044.   #define DyUnpack(v)    (((v)>>16)&0x1f)
  1045. ! #else  LONG_IS_32_BITS
  1046.   #define    DatePack(m, y)    ((((m)&0xf)<<12) | ((y)&0xfff))
  1047.   #define YrUnpack(v)    ((v)&0xfff)
  1048.   #define MoUnpack(v)    (((v)>>12)&0xf)
  1049. ! #endif  LONG_IS_32_BITS
  1050.   
  1051.   /*
  1052.    *    Foreground/Background colours
  1053. --- 10,32 ----
  1054.    *    so undef if not true
  1055.    *    and fiddle with the definitions below
  1056.    */
  1057. ! /* #define    LONG_IS_32_BITS */
  1058.   
  1059.   /* pack year and month into Cardinals */
  1060.   #ifdef LONG_IS_32_BITS
  1061. ! #define    DatePack(w, d, m, y)    ((((w)&0x7)<<21) | (((d)&0x1f)<<16) | (((m)&0xf)<<12) | ((y)&0xfff))
  1062.   #define YrUnpack(v)    ((v)&0xfff)
  1063.   #define MoUnpack(v)    (((v)>>12)&0xf)
  1064.   #define DyUnpack(v)    (((v)>>16)&0x1f)
  1065. ! #define WdUnpack(v)    (((v)>>21)&0x7)
  1066. ! #else /*  LONG_IS_32_BITS */
  1067.   #define    DatePack(m, y)    ((((m)&0xf)<<12) | ((y)&0xfff))
  1068. + #define DayPack(w, d)    ((((w)&0x7)<<5) | ((d)&0x1f))
  1069.   #define YrUnpack(v)    ((v)&0xfff)
  1070.   #define MoUnpack(v)    (((v)>>12)&0xf)
  1071. ! #define DyUnpack(v)    ((v)&0x1f)
  1072. ! #define WdUnpack(v)    (((v)>>5)&0xf)
  1073. ! #endif /* LONG_IS_32_BITS */
  1074.   
  1075.   /*
  1076.    *    Foreground/Background colours
  1077. ***************
  1078. *** 47,55 ****
  1079.       Boolean giveHelp;    /* True if help is needed (default) */
  1080.       Boolean initialCalendar;/* Pop up Calendar on startup if True */
  1081.       Boolean initialEdit;    /* Pop up today's Edit on startup if True */
  1082.       String    mon[12];    /* Long month names */
  1083.       String    smon[12];    /* Short month names */
  1084. !     String    day[7];        /* day names */
  1085.       String    opfmt;        /* format for main box */
  1086.       String    order;        /* Orders are dmy/ymd/mdy/ydm */
  1087.       int    val_order;    /* The selected order */
  1088. --- 51,65 ----
  1089.       Boolean giveHelp;    /* True if help is needed (default) */
  1090.       Boolean initialCalendar;/* Pop up Calendar on startup if True */
  1091.       Boolean initialEdit;    /* Pop up today's Edit on startup if True */
  1092. +     Boolean    initialMemo;    /* Pop up memo box on start */
  1093. +     Boolean    dateYearIs2;    /* Display year as two digits in date strip  */
  1094. +     Boolean    editYearIs2;    /* Display year as two digits in edit strip  */
  1095. +     Boolean    memoYearIs2;    /* Display year as two digits in memo strip  */
  1096.       String    mon[12];    /* Long month names */
  1097.       String    smon[12];    /* Short month names */
  1098. !     String    day[7];        /* Day names - full */
  1099. !     String    sday[7];    /* Short day names */
  1100. !     String    weekly;        /* Title of weekly edit strip */
  1101.       String    opfmt;        /* format for main box */
  1102.       String    order;        /* Orders are dmy/ymd/mdy/ydm */
  1103.       int    val_order;    /* The selected order */
  1104. ***************
  1105. *** 65,72 ****
  1106.       int    update;        /* interval between peeks (60 secs) */
  1107.       int    volume;        /* how loud to beep the alarm 0-100 */
  1108.       int    nbeeps;        /* how many beeps for an alarm ? */
  1109. -     long    last_size;    /* save the last time size */
  1110. -     long    last_time;    /* save the last time file accessed */
  1111.       int    autoquit;    /* Automatically delete message boxes */
  1112.       String    countdown;    /* Comma separated countdown string for alarms */
  1113.       String    cmd;        /* command to execute for every alarm */
  1114. --- 75,80 ----
  1115. ***************
  1116. *** 85,94 ****
  1117.   /*
  1118.    *    Order coding inserted into val_order
  1119.    */
  1120. ! #define    O_DMY    0        /* default */
  1121. ! #define O_YMD    1        /* Year/Month/Day */
  1122. ! #define O_MDY    2        /* Month/Day/Year */
  1123. ! #define O_YDM    3        /* Year/Day/Month */
  1124.   
  1125.   /*
  1126.    *    Date structure
  1127. --- 93,105 ----
  1128.   /*
  1129.    *    Order coding inserted into val_order
  1130.    */
  1131. ! #define    O_DMY        0    /* default */
  1132. ! #define O_YMD        1    /* Year/Month/Day */
  1133. ! #define O_MDY        2    /* Month/Day/Year */
  1134. ! #define O_YDM        3    /* Year/Day/Month */
  1135. ! #define    O_WEEKLEFT    4    /* Place day of the week on the left */
  1136. ! #define O_WEEKRIGHT    8    /* Place day of the week on the right */
  1137. ! #define    O_WEEKMASK    O_WEEKLEFT|O_WEEKRIGHT
  1138.   
  1139.   /*
  1140.    *    Date structure
  1141. ***************
  1142. *** 97,102 ****
  1143. --- 108,114 ----
  1144.   {    Cardinal    day;
  1145.       Cardinal    month;
  1146.       Cardinal    year;
  1147. +     Cardinal    wday;
  1148.   } Date;
  1149.   
  1150.   /*
  1151. ***************
  1152. *** 108,115 ****
  1153. --- 120,131 ----
  1154.       Cardinal    me_month;    /* which month */
  1155.       String        me_have[32];    /* if a file present for the day */
  1156.                       /* then will have a non-zero entry */
  1157. +     int        me_type;    /* type of displayed strip */
  1158.   } MonthEntry;
  1159.   
  1160. + #define ME_MONTHLY    1        /* `Normal' monthly strip */
  1161. + #define ME_WEEKLY    2        /* Weekly strip */
  1162. + 
  1163.   /*
  1164.    *    An instance of the strip
  1165.    */
  1166. ***************
  1167. *** 150,156 ****
  1168. --- 166,175 ----
  1169.   /*
  1170.    *    Global routines
  1171.    */
  1172. + void    InitAlarms();
  1173. + void    MouseShow();
  1174.   void    Leave();
  1175. + void    Fatal();
  1176.   void    SetDate();
  1177.   void    AskLeave();
  1178.   void    DialogPopup();
  1179. ***************
  1180. *** 158,171 ****
  1181. --- 177,198 ----
  1182.   void    TextCal();
  1183.   void    DoCalendar();
  1184.   void    DoMemo();
  1185. + void    DoWeekly();
  1186.   void    MemoPoll();
  1187.   void    NewMonthStrip();
  1188.   void    InitMonthEntries();
  1189.   void    ChangeHighlight();
  1190.   void    NoEditIsPossible();
  1191. + void    NoDayEditIsPossible();
  1192.   void    StartEditing();
  1193.   MonthEntry *GetMonthEntry();
  1194. + MonthEntry *GetWeeklyEntry();
  1195.   void    AlarmFilePoll();
  1196.   String    ReadCalendarFile();
  1197.   void    UpdateMemo();
  1198.   void    PlaceStr();
  1199. + String    MakeWeeklyName();
  1200. + String    GetWeeklyFile();
  1201. + Boolean    NeedTop();
  1202. + 
  1203. + time_t    time();
  1204. *** xcal.man~    Fri Mar 22 23:34:50 1991
  1205. --- xcal.man    Fri Mar 22 23:48:21 1991
  1206. ***************
  1207. *** 21,28 ****
  1208.   program.
  1209.   The format of the command box may be altered using the resource manager, so you
  1210.   are not stuck with my preferred format.
  1211. ! A small button in the top level window can be pressed to inspect todays
  1212. ! appointments and also to edit or display a memo file.
  1213.   .LP
  1214.   The calendar and notebook functions are accessed by clicking the mouse
  1215.   buttons inside date portion of the command window.
  1216. --- 21,31 ----
  1217.   program.
  1218.   The format of the command box may be altered using the resource manager, so you
  1219.   are not stuck with my preferred format.
  1220. ! A small button in the top level window can be pressed to
  1221. ! inspect appointments for today.
  1222. ! This generates a panel showing information from the calendar file for today and
  1223. ! information from a set of seven daily files holding regular commitments.
  1224. ! Finally, the memo panel displays and allows the edit of a memo file.
  1225.   .LP
  1226.   The calendar and notebook functions are accessed by clicking the mouse
  1227.   buttons inside date portion of the command window.
  1228. ***************
  1229. *** 113,123 ****
  1230.   .I Xcal
  1231.   is accessed by pressing the non-date portion of the command window.
  1232.   Currently this shows a bitmap diagram of three mouse buttons.
  1233. ! Clicking the left mouse button in this area brings up a complex panel.
  1234.   The top half of the panel displays the information held in the diary
  1235.   for today; you cannot edit the data from here \- and must open the
  1236.   diary strip to change the data.
  1237. ! The bottom half of the panel is an edit window displaying the contents
  1238.   of a file usually called `memo' in the Calendar directory.
  1239.   The idea of this panel is to allow you to access your current information
  1240.   in one button click.
  1241. --- 116,132 ----
  1242.   .I Xcal
  1243.   is accessed by pressing the non-date portion of the command window.
  1244.   Currently this shows a bitmap diagram of three mouse buttons.
  1245. ! Clicking the left mouse button in this area brings up a complex panel,
  1246. ! clicking on the button again will pop is back down again.
  1247.   The top half of the panel displays the information held in the diary
  1248.   for today; you cannot edit the data from here \- and must open the
  1249.   diary strip to change the data.
  1250. ! The next section of the panel displays the information held in the
  1251. ! weekly files.
  1252. ! Again you cannot directly change the text in this area, you must
  1253. ! press on the Edit button to bring up a strip enabling you to
  1254. ! change things.
  1255. ! The bottom portion of the panel is an edit window displaying the contents
  1256.   of a file usually called `memo' in the Calendar directory.
  1257.   The idea of this panel is to allow you to access your current information
  1258.   in one button click.
  1259. ***************
  1260. *** 197,202 ****
  1261. --- 206,224 ----
  1262.               info    command containing the file data
  1263.   .EE
  1264.   .LP
  1265. + The weekly popup strip is:
  1266. + .EX
  1267. + weekly                the popup shell
  1268. +     weekly            panel containing the strip
  1269. +         header        label containing the title
  1270. +         action        form containing quit and help
  1271. +             quit    command containing exit button
  1272. +             help    command generating help
  1273. +         shortday    form containing days
  1274. +             label    label containing day of the week
  1275. +             info    command containing the file data
  1276. + .EE
  1277. + .LP
  1278.   The Edit Window is:
  1279.   .EX
  1280.   edit                the popup shell
  1281. ***************
  1282. *** 203,209 ****
  1283.       panel            the panel inside the shell
  1284.           title        the form containing the first line
  1285.               quit    the exit button
  1286. ! .EE
  1287.   .LP
  1288.   The Help Window is:
  1289.   .EX
  1290. --- 225,231 ----
  1291.       panel            the panel inside the shell
  1292.           title        the form containing the first line
  1293.               quit    the exit button
  1294. ! .EE    
  1295.   .LP
  1296.   The Help Window is:
  1297.   .EX
  1298. ***************
  1299. *** 234,239 ****
  1300. --- 256,265 ----
  1301.               help    the help button
  1302.               date    display today's date
  1303.           display        text from today's date file
  1304. +         weeklyMemo    form for the Memo title line
  1305. +             weeklyEdit    Edit button
  1306. +             weeklyTitle    Title area
  1307. + 2        display        text from today's weekly file
  1308.           memoMiddle    Middle line form widget
  1309.               save    Save button
  1310.               memoTitle    text title of middle line
  1311. ***************
  1312. *** 299,316 ****
  1313.   If true display the output in reverse video.
  1314.   .IP
  1315.   .B Format
  1316. ! The \fIprintf\fP string used to create the contents of the top command
  1317. ! button.
  1318. ! The default is "%2d %s %d", the arguments to this command are presented
  1319.   in a default order: day, month string and year.
  1320. ! The order is controlled by the Order resource which contains the default
  1321. ! string "dmy".
  1322. ! These two resources should allow all forms of date printing.
  1323.   .TP
  1324.   .B Order
  1325. ! Legal combinations are: dmy, ymd, mdy, ydm.
  1326. ! The default is dmy.
  1327.   .TP
  1328.   .B MarkBackground
  1329.   The background colour for highlighting entries.
  1330.   Default Black.
  1331. --- 325,371 ----
  1332.   If true display the output in reverse video.
  1333.   .IP
  1334.   .B Format
  1335. ! The \fIprintf\fP format used to create the contents of the top command button,
  1336. ! the title in an edit window and the title in the memo window.
  1337. ! The default is "%s %2d %s %d", the arguments to this command are presented
  1338.   in a default order: day, month string and year.
  1339. ! The order is controlled by the Order resource, this contains the default
  1340. ! string "wdmy".
  1341.   .TP
  1342.   .B Order
  1343. ! This resource gives the order that various arguments are presented to the
  1344. ! printf using the format string defined above.
  1345. ! Legal combinations using day, month and year are: dmy, ymd, mdy, ydm.
  1346. ! The name of today can be inserted at the start of the string by
  1347. ! using one of the formats: wdmy, wymd, wmdy, wydm.
  1348. ! It can be entered at the end by using on of the formats: dmyw, ymdw, mdyw, ydmw.
  1349. ! In case you are wondering the `w' stands for `day' of the week.
  1350. ! Beware that altering this resource from
  1351. ! the default may force you to change the format string,
  1352. ! see the previous resource.
  1353. ! The default is wdmy.
  1354.   .TP
  1355. + .B DateYearIsTwoDigits
  1356. + The display of the year in the date strip is controlled
  1357. + the format above.
  1358. + If this resource is true then the year will be displayed as a two
  1359. + digit number; if false the whole four digits will be displayed.
  1360. + Default: False.
  1361. + .TP
  1362. + .B EditYearIsTwoDigits
  1363. + The display of the year in the edit boxes is controlled by
  1364. + the format above.
  1365. + If this resource is true then the year will be displayed as a two
  1366. + digit number; if false the whole four digits will be displayed.
  1367. + Default: False.
  1368. + .TP
  1369. + .B MemoYearIsTwoDigits
  1370. + The display of the year in the memo box is controlled
  1371. + the format above.
  1372. + If this resource is true then the year will be displayed as a two
  1373. + digit number; if false the whole four digits will be displayed.
  1374. + Default: False.
  1375. + .TP
  1376.   .B MarkBackground
  1377.   The background colour for highlighting entries.
  1378.   Default Black.
  1379. ***************
  1380. *** 362,367 ****
  1381. --- 417,426 ----
  1382.   If False, the edit window is not automatically displayed.
  1383.   Default: False.
  1384.   .TP
  1385. + .B InitialMemo
  1386. + If True then the memo window is automatically displayed on startup.
  1387. + Default: False.
  1388. + .TP
  1389.   .B UseWmTitle
  1390.   If True display the month and the year at the head of each strip.
  1391.   This information is duplicated if your window manager uses titles
  1392. ***************
  1393. *** 485,491 ****
  1394.   .B Sunday
  1395.   .B Monday
  1396.   and so on.
  1397. ! The names of the days, these are currently set to a three character short form.
  1398.   .SH FILES
  1399.   .PP
  1400.    $HOME/Calendar/*
  1401. --- 544,560 ----
  1402.   .B Sunday
  1403.   .B Monday
  1404.   and so on.
  1405. ! The \fIlong\fP names of the days: Sunday, Monday etc.
  1406. ! These are used in titles: the top level widget, the title of an edit window
  1407. ! and the memo frame.
  1408. ! .TP
  1409. ! .B Sun
  1410. ! .B Mon
  1411. ! and so on.
  1412. ! The short names of the days \- used in date strips.
  1413. ! .TP
  1414. ! .B Weekly
  1415. ! The word `Weekly' used in various places.
  1416.   .SH FILES
  1417.   .PP
  1418.    $HOME/Calendar/*
  1419. ***************
  1420. *** 496,501 ****
  1421. --- 565,576 ----
  1422.   .TP
  1423.   xy<Year>
  1424.   A year directory.
  1425. + .TP
  1426. + xw<Day>
  1427. + A data file for the weekly code, one per day.
  1428. + .TP
  1429. + memo
  1430. + The memo file.
  1431.   .LP
  1432.   The standard resource database can be found in /usr/lib/X11/app-defaults/Xcal.
  1433.   Assuming that this is where the system admin installed it.
  1434. ***************
  1435. *** 514,519 ****
  1436. --- 589,596 ----
  1437.   Countdown does not work in the early hours of the morning, if you have a
  1438.   ten minute countdown and an alarm set at 0005 \- then you will not get
  1439.   warning at 2325.
  1440. + .LP
  1441. + Alarms set at 0000 probably won't work.
  1442.   .SH AUTHOR
  1443.   .LP
  1444.   Copyright 1989,1990 by Peter Collinson, Hillside Systems
  1445. *** xcal_alarm.c~    Fri Mar 22 23:34:52 1991
  1446. --- xcal_alarm.c    Fri Mar 22 23:48:22 1991
  1447. ***************
  1448. *** 1,5 ****
  1449.   #ifndef lint
  1450. ! static char    *sccsid = "@(#)xcal_alarm.c    1.10 (Hillside Systems) 12/12/90";
  1451.   static char    *copyright = "@(#)Copyright 1989/1990 Mark Majhor, Peter Collinson";
  1452.   #endif  /* lint */
  1453.   /***
  1454. --- 1,5 ----
  1455.   #ifndef lint
  1456. ! static char    *sccsid = "@(#)xcal_alarm.c    1.13 (Hillside Systems) 1/16/91";
  1457.   static char    *copyright = "@(#)Copyright 1989/1990 Mark Majhor, Peter Collinson";
  1458.   #endif  /* lint */
  1459.   /***
  1460. ***************
  1461. *** 44,54 ****
  1462.   #define scrollVertical    0x02
  1463.   #endif
  1464.   
  1465. ! static struct stat stbuf;
  1466. ! static Boolean  false = False;
  1467. ! static Boolean  true = True;
  1468. ! static char    *LocalMapStem;
  1469. ! static Boolean  LocalFoundCalendarFile;
  1470.   static Alarm    head;
  1471.   static int    *countDown;
  1472.   static int    countDownCt;
  1473. --- 44,51 ----
  1474.   #define scrollVertical    0x02
  1475.   #endif
  1476.   
  1477. ! static char    *LocalMapStem;
  1478. ! static char    *TodayFile;
  1479.   static Alarm    head;
  1480.   static int    *countDown;
  1481.   static int    countDownCt;
  1482. ***************
  1483. *** 169,175 ****
  1484.       struct    tm    *tm;
  1485.   {
  1486.       time_t    ti;
  1487. !     struct    stat stbuf;
  1488.       char    *home;
  1489.       char    buf[256];
  1490.       char    *getenv();
  1491. --- 166,172 ----
  1492.       struct    tm    *tm;
  1493.   {
  1494.       time_t    ti;
  1495. !     int    files;
  1496.       char    *home;
  1497.       char    buf[256];
  1498.       char    *getenv();
  1499. ***************
  1500. *** 209,236 ****
  1501.           if (LocalMapStem)
  1502.               XtFree(LocalMapStem);
  1503.           LocalMapStem = XtNewString(buf);
  1504. !         dprintf("Todays Filename = %s\n", LocalMapStem);
  1505.       }
  1506.   
  1507.       /*
  1508.        *    check for file existence
  1509.        */
  1510. !     if (access(LocalMapStem, F_OK))
  1511. !     {    FreeAlarmList();
  1512. !         UpdateMemo();
  1513. !         return;
  1514. !     }
  1515.   
  1516. !     if (stat(LocalMapStem, &stbuf) < 0)
  1517. !         Fatal("Panic: cannot stat %s\n", LocalMapStem);
  1518.   
  1519. !     if (stbuf.st_size != appResources.last_size ||
  1520. !         stbuf.st_mtime > appResources.last_time)
  1521. !     {    appResources.last_size = stbuf.st_size;
  1522. !         appResources.last_time = stbuf.st_mtime;
  1523. !         AlarmScan(LocalMapStem, tm, MINUTES(tm->tm_hour, tm->tm_min));
  1524. !         UpdateMemo();
  1525.       }
  1526.   }
  1527.   
  1528.   static void
  1529. --- 206,240 ----
  1530.           if (LocalMapStem)
  1531.               XtFree(LocalMapStem);
  1532.           LocalMapStem = XtNewString(buf);
  1533. !         dprintf("Todays Daily Filename = %s\n", LocalMapStem);
  1534. ! 
  1535. !         if (TodayFile)
  1536. !             XtFree(TodayFile);
  1537. ! 
  1538. !         TodayFile = MakeWeeklyName(today.wday);
  1539.       }
  1540.   
  1541. +     files = 0;
  1542.       /*
  1543.        *    check for file existence
  1544.        */
  1545. !     if (access(LocalMapStem, F_OK) == 0)
  1546. !         files = 1;
  1547. !     if (access(TodayFile, F_OK) == 0)
  1548. !         files |= 2;
  1549.   
  1550. !     FreeAlarmList();
  1551.   
  1552. !     if (files)
  1553. !     {    if (files&1)
  1554. !             AlarmScan(LocalMapStem, tm, MINUTES(tm->tm_hour, tm->tm_min));
  1555. !         if (files&2)
  1556. !             AlarmScan(TodayFile, tm, MINUTES(tm->tm_hour, tm->tm_min));
  1557.       }
  1558. +     else
  1559. +         dprintf("No files to scan");
  1560. + 
  1561. +     UpdateMemo();
  1562.   }
  1563.   
  1564.   static void
  1565. ***************
  1566. *** 247,256 ****
  1567.       Boolean        isAction;
  1568.   
  1569.   
  1570. !     dprintf("Scanning data file\n");
  1571.   
  1572. -     FreeAlarmList();
  1573. - 
  1574.       if ((fp = fopen(file, "r")) == NULL)
  1575.       {    fprintf(stderr, "Unexpected failure to open: %s\n", file);
  1576.           exit(1);
  1577. --- 251,258 ----
  1578.       Boolean        isAction;
  1579.   
  1580.   
  1581. !     dprintf("Scanning data file %s\n", file);
  1582.   
  1583.       if ((fp = fopen(file, "r")) == NULL)
  1584.       {    fprintf(stderr, "Unexpected failure to open: %s\n", file);
  1585.           exit(1);
  1586. ***************
  1587. *** 308,314 ****
  1588.   {
  1589.   
  1590.       Alarm        *al, *prev, *new;
  1591. -     int            bo;
  1592.       char           *XtMalloc();
  1593.       int        al_hr, al_mn, mm;
  1594.       int        loop;
  1595. --- 310,315 ----
  1596. ***************
  1597. *** 393,399 ****
  1598.           LookSp,    LoseSp,    Store,    AllDone
  1599.       } state;
  1600.       register int    c = 0;
  1601. !     int             hr, mn;
  1602.       char           *destp;
  1603.   
  1604.       if (feof(fin))
  1605. --- 394,400 ----
  1606.           LookSp,    LoseSp,    Store,    AllDone
  1607.       } state;
  1608.       register int    c = 0;
  1609. !     int             hr = 0, mn = 0;
  1610.       char           *destp;
  1611.   
  1612.       if (feof(fin))
  1613. ***************
  1614. *** 522,528 ****
  1615.   {
  1616.       Alarm    *sc;
  1617.       int    togo;
  1618. -     int    mwanted;
  1619.       
  1620.       for (sc = head.next; sc; sc = sc->next)
  1621.       {    togo = sc->alarm_mm - mnow;
  1622. --- 523,528 ----
  1623. ***************
  1624. *** 586,592 ****
  1625.   beep()
  1626.   {
  1627.       register Display *dpy = XtDisplay(toplevel);
  1628. -     register Window win = XtWindow(toplevel);
  1629.       int i;
  1630.   
  1631.       for (i = 0; i < appResources.nbeeps; i++)
  1632. --- 586,591 ----
  1633. *** xcal_cal.c~    Fri Mar 22 23:34:49 1991
  1634. --- xcal_cal.c    Fri Mar 22 23:48:20 1991
  1635. ***************
  1636. *** 45,54 ****
  1637.   #include <ctype.h>
  1638.   #include <sys/param.h>
  1639.   #include <sys/types.h>
  1640.   #include <sys/dir.h>
  1641.   #include <time.h>
  1642. - #include <strings.h>
  1643.   
  1644.   char    *directory    = "Calendar";
  1645.   char    *file        = ".xcal";
  1646.   char    *home;
  1647. --- 45,63 ----
  1648.   #include <ctype.h>
  1649.   #include <sys/param.h>
  1650.   #include <sys/types.h>
  1651. + #ifdef SYSV
  1652. + #include <dirent.h>
  1653. + #include <string.h>
  1654. + #else
  1655. + #include <strings.h>
  1656. + #endif
  1657.   #include <sys/dir.h>
  1658.   #include <time.h>
  1659.   
  1660. + 
  1661. + #ifdef SYSV
  1662. + #define    index    strchr
  1663. + #endif
  1664.   char    *directory    = "Calendar";
  1665.   char    *file        = ".xcal";
  1666.   char    *home;
  1667. *** xcal_edit.c~    Fri Mar 22 23:34:53 1991
  1668. --- xcal_edit.c    Fri Mar 22 23:48:22 1991
  1669. ***************
  1670. *** 1,5 ****
  1671.   #ifndef lint
  1672. ! static char *sccsid = "@(#)xcal_edit.c    3.9 (Hillside Systems) 12/13/90";
  1673.   static char *copyright = "@(#)Copyright 1989,1990 Peter Collinson, Hillside Systems";
  1674.   #endif  /* lint */
  1675.   /***
  1676. --- 1,5 ----
  1677.   #ifndef lint
  1678. ! static char *sccsid = "@(#)xcal_edit.c    3.15 (Hillside Systems) 1/16/91";
  1679.   static char *copyright = "@(#)Copyright 1989,1990 Peter Collinson, Hillside Systems";
  1680.   #endif  /* lint */
  1681.   /***
  1682. ***************
  1683. *** 63,68 ****
  1684. --- 63,70 ----
  1685.   #define mw_month mw_me.me_month
  1686.   #define mw_have    mw_me.me_have
  1687.   
  1688. + #define    StripType(mw)    (mw->mw_me.me_type)
  1689. + 
  1690.   static MeWrap *WrapBase;        /* base of the list */
  1691.   static MeWrap *WrapEnd;            /* the last one in the list */
  1692.   
  1693. ***************
  1694. *** 84,89 ****
  1695. --- 86,92 ----
  1696.   static MeWrap *MeWrapSearch();
  1697.   static    void DeRegisterMonth();
  1698.   static Boolean WriteCalendarFile();
  1699. + static Boolean WriteWeeklyFile();
  1700.   static void DeleteCalendarFile();
  1701.   static void SetAllButtons();
  1702.   static void TextChanged();
  1703. ***************
  1704. *** 93,98 ****
  1705. --- 96,102 ----
  1706.   static void CheckDia();
  1707.   static void YesCheck();
  1708.   static void NoCheck();
  1709. + static int DayMatch();
  1710.   void    StartDayEditor();
  1711.   void    Fatal();
  1712.   
  1713. ***************
  1714. *** 202,209 ****
  1715.       while ((dp = readdir(dirp)) != NULL)
  1716.       {
  1717.   #ifdef SYSV
  1718. !         int d_namlen = strlen(dp->d_name) +1;
  1719. !         switch(d_namlen)
  1720.   #else
  1721.           switch(dp->d_namlen)
  1722.   #endif
  1723. --- 206,212 ----
  1724.       while ((dp = readdir(dirp)) != NULL)
  1725.       {
  1726.   #ifdef SYSV
  1727. !         switch(strlen(dp->d_name))
  1728.   #else
  1729.           switch(dp->d_namlen)
  1730.   #endif
  1731. ***************
  1732. *** 272,277 ****
  1733. --- 275,341 ----
  1734.   }
  1735.   
  1736.   /*
  1737. +  *    Get the entry for the weekly strip
  1738. +  *    Files are xw<Day> in the Calendar directory
  1739. +  */
  1740. + MonthEntry *
  1741. + GetWeeklyEntry(yr, mo)
  1742. +     Cardinal    yr;
  1743. +     Cardinal    mo;
  1744. + {
  1745. +     MeWrap        *mw;
  1746. +     int        da;
  1747. +     DIR        *dirp;
  1748. + #ifdef SYSV
  1749. +     struct    dirent    *dp;
  1750. + #else
  1751. +     struct    direct    *dp;
  1752. + #endif
  1753. + 
  1754. +     if ((mw = MeWrapSearch(0, 0)) == NULL)
  1755. +         mw = NewMeWrap(0, 0);
  1756. + 
  1757. +     if (!FoundCalendarDir)
  1758. +         return(&mw->mw_me);
  1759. + 
  1760. +     if ((dirp = opendir(".")) == NULL)
  1761. +         Fatal("Cannot open directory: %s", MapStem);
  1762. + 
  1763. +     for (da = 0; da < 7; da++)
  1764. +         if (mw->mw_have[da])
  1765. +         {    XtFree(mw->mw_have[da]);
  1766. +             mw->mw_have[da] = NULL;
  1767. +         }
  1768. + 
  1769. +     while ((dp = readdir(dirp)) != NULL)
  1770. +     {
  1771. +         if (dp->d_name[0] == 'x' &&
  1772. +             dp->d_name[1] == 'w' &&
  1773. +             ((da = DayMatch(&dp->d_name[2])) != -1))
  1774. +         {
  1775. +             mw->mw_have[da] = ReadCalendarFile(NULL, dp->d_name);
  1776. +         }
  1777. +     }
  1778. +     closedir(dirp);
  1779. +     return(&mw->mw_me);
  1780. + }
  1781. + 
  1782. + /*
  1783. +  *    Look for a short name match with a day
  1784. +  */
  1785. + static int
  1786. + DayMatch(day)
  1787. +     String    day;
  1788. + {
  1789. +     register i;
  1790. + 
  1791. +     for (i = 0; i < 7; i++)
  1792. +         if (strcmp(day, appResources.sday[i]) == 0)
  1793. +             return(i);
  1794. +     return (-1);
  1795. + }
  1796. + 
  1797. + /*
  1798.    *    create a new MapWrap area
  1799.    */
  1800.   static MeWrap *
  1801. ***************
  1802. *** 335,341 ****
  1803.   
  1804.       callbacks[0].callback = DeRegisterMonth;
  1805.   #ifdef LONG_IS_32_BITS
  1806. !     callbacks[0].closure = (caddr_t)DatePack(0, mo, yr);
  1807.   #else
  1808.       callbacks[0].closure = (caddr_t)DatePack(mo, yr);
  1809.   #endif        
  1810. --- 399,405 ----
  1811.   
  1812.       callbacks[0].callback = DeRegisterMonth;
  1813.   #ifdef LONG_IS_32_BITS
  1814. !     callbacks[0].closure = (caddr_t)DatePack(0, 0, mo, yr);
  1815.   #else
  1816.       callbacks[0].closure = (caddr_t)DatePack(mo, yr);
  1817.   #endif        
  1818. ***************
  1819. *** 434,439 ****
  1820. --- 498,529 ----
  1821.   }
  1822.   
  1823.   /*
  1824. +  *    Check to see if we should create the top directory
  1825. +  */
  1826. + Boolean
  1827. + NeedTop()
  1828. + {        
  1829. +     if (!FoundCalendarDir)
  1830. +     {    if (mkdir(MapStem, 0700) == -1)
  1831. +         {    XBell(XtDisplay(toplevel), 0);
  1832. +             fprintf(stderr, "xcal: Could not create: %s directory.\n", MapStem);
  1833. +             perror("xcal: mkdir");
  1834. +             fflush(stderr);
  1835. +             return(False);
  1836. +         }
  1837. +         if (chdir(MapStem) < 0)
  1838. +         {    XBell(XtDisplay(toplevel), 0);
  1839. +             fprintf(stderr, "xcal: Could not chdir into %s.\n", MapStem);
  1840. +             perror("xcal: chdir");
  1841. +             fflush(stderr);
  1842. +             return(False);
  1843. +         }
  1844. +         FoundCalendarDir = True;
  1845. +     }
  1846. +     return(True);
  1847. + }
  1848. + 
  1849. + /*
  1850.    *    Write a calendar file creating any directories
  1851.    *    which are needed
  1852.    *    Return True is OK
  1853. ***************
  1854. *** 454,481 ****
  1855.       {    DeleteCalendarFile(mw, day);
  1856.           return(True);
  1857.       }
  1858.       /*
  1859. -      *    First let's see if we have 
  1860. -      *    to create the toplevel directory
  1861. -      */
  1862. -     if (!FoundCalendarDir)
  1863. -     {    if (mkdir(MapStem, 0700) == -1)
  1864. -         {    XBell(XtDisplay(toplevel), 0);
  1865. -             fprintf(stderr, "xcal: Could not create: %s directory.\n", MapStem);
  1866. -             perror("xcal: mkdir");
  1867. -             fflush(stderr);
  1868. -             return(False);
  1869. -         }
  1870. -         if (chdir(MapStem) < 0)
  1871. -         {    XBell(XtDisplay(toplevel), 0);
  1872. -             fprintf(stderr, "xcal: Could not chdir into %s.\n", MapStem);
  1873. -             perror("xcal: chdir");
  1874. -             fflush(stderr);
  1875. -             return(False);
  1876. -         }
  1877. -         FoundCalendarDir = True;
  1878. -     }
  1879. -     /*
  1880.        *    So that looks OK
  1881.        *    We can now create the output file.
  1882.        *    However, we would like to put any new data into subdirectories
  1883. --- 544,553 ----
  1884.       {    DeleteCalendarFile(mw, day);
  1885.           return(True);
  1886.       }
  1887. +     if (!NeedTop())
  1888. +         return(False);
  1889. + 
  1890.       /*
  1891.        *    So that looks OK
  1892.        *    We can now create the output file.
  1893.        *    However, we would like to put any new data into subdirectories
  1894. ***************
  1895. *** 570,575 ****
  1896. --- 642,726 ----
  1897.   }
  1898.   
  1899.   /*
  1900. +  *    Write daily file out
  1901. +  */
  1902. + static Boolean
  1903. + WriteWeeklyFile(mw, day, contents)
  1904. +     register MeWrap    *mw;
  1905. +     Cardinal    day;
  1906. +     char        *contents;
  1907. + {
  1908. +     int    fd;
  1909. +     Cardinal len;
  1910. +     char    *fname;
  1911. + 
  1912. +     fname = MakeWeeklyName(day);
  1913. +     
  1914. +     len = strlen(contents);
  1915. +     if (len == 0)
  1916. +         (void) unlink(fname);
  1917. +     else
  1918. +     {    if ((fd = open(fname, O_WRONLY|O_TRUNC|O_CREAT, 0666)) < 0)
  1919. +         {    XBell(XtDisplay(toplevel), 0);
  1920. +             fprintf(stderr, "xcal: Could not open %s/%s for writing.\n", MapStem, fname);
  1921. +             perror("xcal: open");
  1922. +             fflush(stderr);
  1923. +             return(False);
  1924. +         }
  1925. + 
  1926. +         if (write(fd, contents, len) != len)
  1927. +         {    XBell(XtDisplay(toplevel), 0);
  1928. +             fprintf(stderr, "xcal: Write error %s/%s file.\n", MapStem, fname);
  1929. +             perror("xcal: write");
  1930. +             fflush(stderr);
  1931. +             close(fd);
  1932. +             return(False);
  1933. +         }
  1934. +         close(fd);
  1935. +     }
  1936. +     /*
  1937. +      *    tickle the alarm system if we have altered `today'
  1938. +      */
  1939. +     if (today.wday == day)
  1940. +         AlarmFilePoll(NULL);
  1941. + 
  1942. +     return(True);
  1943. + }
  1944. + 
  1945. + /*
  1946. +  *    Create a standard weekly file name
  1947. +  */
  1948. + String
  1949. + MakeWeeklyName(day)
  1950. +     Cardinal day;
  1951. + {
  1952. +     static    char    fname[16];
  1953. + 
  1954. +     (void) sprintf(fname, "xw%s", appResources.sday[day]);
  1955. +     return(fname);
  1956. + }
  1957. + 
  1958. + /*
  1959. +  *    Get the contents of the current Weekly file if any
  1960. +  */
  1961. + String
  1962. + GetWeeklyFile(day)
  1963. +     Cardinal day;
  1964. + {
  1965. +     char    *fname;
  1966. + 
  1967. +     if (FoundCalendarDir == False)
  1968. +         return (NULL);
  1969. + 
  1970. +     fname = MakeWeeklyName(day);
  1971. + 
  1972. +     if (access(fname, F_OK) < 0)
  1973. +         return(NULL);
  1974. + 
  1975. +     return (ReadCalendarFile(NULL, fname));
  1976. + }
  1977. + 
  1978. + /*
  1979.    *    Start up an editor window from the callback
  1980.    *    Pass the calling widget so we can change its contents
  1981.    *    after the edit
  1982. ***************
  1983. *** 592,598 ****
  1984.       {    if (ed->ed_day == da->day)
  1985.           {    /* we are! */
  1986.               /* Complain via a popup */
  1987. !             NoEditIsPossible(w, da);
  1988.               return;
  1989.           }
  1990.       }
  1991. --- 743,757 ----
  1992.       {    if (ed->ed_day == da->day)
  1993.           {    /* we are! */
  1994.               /* Complain via a popup */
  1995. !             switch (StripType(mw))
  1996. !             {
  1997. !             case ME_MONTHLY:
  1998. !                 NoEditIsPossible(w, da);
  1999. !                 break;
  2000. !             case ME_WEEKLY:
  2001. !                 NoDayEditIsPossible(w, da->day);
  2002. !                 break;
  2003. !             }
  2004.               return;
  2005.           }
  2006.       }
  2007. ***************
  2008. *** 724,730 ****
  2009.           lw = XtCreateManagedWidget("help", commandWidgetClass, frame, args, nargs);
  2010.       }
  2011.   
  2012. !     PlaceStr(buf, da->day, appResources.mon[da->month], da->year);
  2013.       nargs = 0;
  2014.       XtSetArg(args[nargs], XtNlabel, buf); nargs++;
  2015.       XtSetArg(args[nargs], XtNborderWidth, 0); nargs++;
  2016. --- 883,897 ----
  2017.           lw = XtCreateManagedWidget("help", commandWidgetClass, frame, args, nargs);
  2018.       }
  2019.   
  2020. !     switch (StripType(mw))
  2021. !     {
  2022. !     case ME_MONTHLY:
  2023. !         PlaceStr(buf, da, appResources.editYearIs2);
  2024. !         break;
  2025. !     case ME_WEEKLY:
  2026. !         (void) strcpy(buf, appResources.day[da->day]);
  2027. !         break;
  2028. !     }
  2029.       nargs = 0;
  2030.       XtSetArg(args[nargs], XtNlabel, buf); nargs++;
  2031.       XtSetArg(args[nargs], XtNborderWidth, 0); nargs++;
  2032. ***************
  2033. *** 786,799 ****
  2034.       register Instance *ins;
  2035.       register MeWrap    *mw;
  2036.       register Cardinal day;
  2037. -     extern    Widget    toplevel;
  2038.       Arg    args[3];
  2039.       
  2040.       mw = ed->ed_meWrap;
  2041.       day = ed->ed_day;
  2042.       
  2043. !     if (WriteCalendarFile(mw, day, ed->ed_data) == False)
  2044. !         return;
  2045.       /*
  2046.        *    Otherwise change the displayed string
  2047.        */
  2048. --- 953,974 ----
  2049.       register Instance *ins;
  2050.       register MeWrap    *mw;
  2051.       register Cardinal day;
  2052.       Arg    args[3];
  2053.       
  2054.       mw = ed->ed_meWrap;
  2055.       day = ed->ed_day;
  2056.       
  2057. !     switch (StripType(mw))
  2058. !     {
  2059. !     case ME_MONTHLY:
  2060. !         if (WriteCalendarFile(mw, day, ed->ed_data) == False)
  2061. !             return;
  2062. !         break;
  2063. !     case ME_WEEKLY:
  2064. !         if (WriteWeeklyFile(mw, day, ed->ed_data) == False)
  2065. !             return;
  2066. !         break;
  2067. !     }
  2068.       /*
  2069.        *    Otherwise change the displayed string
  2070.        */
  2071. ***************
  2072. *** 819,827 ****
  2073.       /*
  2074.        * worry about updating the memo system
  2075.        */
  2076. !     if (today.day == day && today.month == mw->mw_month &&
  2077. !         today.year == mw->mw_year)
  2078. !         UpdateMemo();
  2079.   
  2080.   }
  2081.   
  2082. --- 994,1012 ----
  2083.       /*
  2084.        * worry about updating the memo system
  2085.        */
  2086. ! 
  2087. !     switch (StripType(mw))
  2088. !     {
  2089. !     case ME_MONTHLY:
  2090. !         if (today.day == day && today.month == mw->mw_month &&
  2091. !             today.year == mw->mw_year)
  2092. !             UpdateMemo();
  2093. !         break;
  2094. !     case ME_WEEKLY:
  2095. !         if (today.wday == day)
  2096. !             UpdateMemo();
  2097. !         break;
  2098. !     }
  2099.   
  2100.   }
  2101.   
  2102. *** xcal_help.c~    Fri Mar 22 23:34:49 1991
  2103. --- xcal_help.c    Fri Mar 22 23:48:20 1991
  2104. ***************
  2105. *** 1,5 ****
  2106.   #ifndef lint
  2107. ! static char *sccsid = "@(#)xcal_help.c    3.5 (Hillside Systems) 12/7/90";
  2108.   static char *copyright = "@(#)Copyright 1989,1990 Peter Collinson, Hillside Systems";
  2109.   #endif  /* lint */
  2110.   /***
  2111. --- 1,5 ----
  2112.   #ifndef lint
  2113. ! static char *sccsid = "@(#)xcal_help.c    3.6 (Hillside Systems) 1/16/91";
  2114.   static char *copyright = "@(#)Copyright 1989,1990 Peter Collinson, Hillside Systems";
  2115.   #endif  /* lint */
  2116.   /***
  2117. ***************
  2118. *** 223,225 ****
  2119. --- 223,260 ----
  2120.   
  2121.       DisplayHelpWindow(memoHelp);
  2122.   }
  2123. + 
  2124. + static char weeklyHelp[] = "\
  2125. + The weekly strip consists of a number of lines of text. \n\n\
  2126. + Line 1: The title\n\
  2127. + Line 2: The Quit button that removes the strip from the screen\n\
  2128. + Line 3: The Help Button.\n\
  2129. +     Help can be suppressed by setting `giveHelp' to False.\n\n\
  2130. + Then -  A line for each day in the week.\n\
  2131. +     Each line is two areas:\n\
  2132. +     The left hand side shows the day in the week\n\
  2133. +     The right hand side is an active button. When pressed it starts\n\
  2134. +     up an editor for the day. This will create a file for the day\n\
  2135. +     in the user's Calendar directory. The label on the button will\n\
  2136. +     be the first few characters of the file, if there are any.\n\
  2137. + \n\
  2138. + XCal was written by Peter Collinson\n\
  2139. + +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n";
  2140. +     
  2141. + /* ARGSUSED */
  2142. + void
  2143. + WeeklyHelp(w, closure, call_data)
  2144. +     Widget w;
  2145. +     caddr_t    closure;
  2146. +     caddr_t call_data;
  2147. + {
  2148. +     static int vadded;
  2149. + 
  2150. +     if (vadded == 0)
  2151. +     {    vadded = 1;
  2152. +         addversion(weeklyHelp);
  2153. +     }
  2154. + 
  2155. +     DisplayHelpWindow(weeklyHelp);
  2156. + }
  2157. + 
  2158. *** xcal_memo.c~    Fri Mar 22 23:34:51 1991
  2159. --- xcal_memo.c    Fri Mar 22 23:48:21 1991
  2160. ***************
  2161. *** 1,5 ****
  2162.   #ifndef lint
  2163. ! static char *sccsid = "@(#)xcal_memo.c    1.5 (Hillside Systems) 12/13/90";
  2164.   static char *copyright = "@(#)Copyright 1989,1990 Peter Collinson, Hillside Systems";
  2165.   #endif  /* lint */
  2166.   /***
  2167. --- 1,5 ----
  2168.   #ifndef lint
  2169. ! static char *sccsid = "@(#)xcal_memo.c    1.11 (Hillside Systems) 1/16/91";
  2170.   static char *copyright = "@(#)Copyright 1989,1990 Peter Collinson, Hillside Systems";
  2171.   #endif  /* lint */
  2172.   /***
  2173. ***************
  2174. *** 53,69 ****
  2175.       Widget    m_display;    /* widget of display title area */
  2176.       Widget    m_text;        /* the text area */
  2177.       Widget    m_today;    /* today's data */
  2178.       Cardinal m_size;    /* size of the buffer */
  2179.       char    *m_data;    /* pointer to malloc'ed data buffer */
  2180.   } MemoEdit;
  2181.   
  2182.   static    MemoEdit memo;
  2183. - String    GetMemoFile();
  2184.   
  2185.   extern    Boolean FoundCalendarDir;               /* whether the Calendar directory exists */
  2186.   
  2187.   static    String    memoContents;
  2188.   
  2189.   
  2190.   /*
  2191.    *    Internal routines
  2192. --- 53,70 ----
  2193.       Widget    m_display;    /* widget of display title area */
  2194.       Widget    m_text;        /* the text area */
  2195.       Widget    m_today;    /* today's data */
  2196. +     Widget    m_weekly;    /* widget of text image of weekly events */
  2197.       Cardinal m_size;    /* size of the buffer */
  2198.       char    *m_data;    /* pointer to malloc'ed data buffer */
  2199.   } MemoEdit;
  2200.   
  2201.   static    MemoEdit memo;
  2202.   
  2203.   extern    Boolean FoundCalendarDir;               /* whether the Calendar directory exists */
  2204.   
  2205.   static    String    memoContents;
  2206.   
  2207. + extern void MemoHelp();                /* look in xcal_help.c */
  2208.   
  2209.   /*
  2210.    *    Internal routines
  2211. ***************
  2212. *** 77,83 ****
  2213.   static String GetMemoFile();
  2214.   static void SaveMemoEdits();
  2215.   static void MemoTextChanged();
  2216. - static void MemoHelp();
  2217.   static void FinishMemoEditing();
  2218.   static void YesCheck();
  2219.   static void NoCheck();
  2220. --- 78,83 ----
  2221. ***************
  2222. *** 145,153 ****
  2223.       Widget        frame;
  2224.       Arg        args[10];
  2225.       Cardinal    nargs;
  2226. -     Cardinal    len;
  2227.       String        str;
  2228.       MonthEntry    *me;
  2229.       char        buf[32];
  2230.   
  2231.       /*
  2232. --- 145,153 ----
  2233.       Widget        frame;
  2234.       Arg        args[10];
  2235.       Cardinal    nargs;
  2236.       String        str;
  2237.       MonthEntry    *me;
  2238. +     Dimension    charHeight;
  2239.       char        buf[32];
  2240.   
  2241.       /*
  2242. ***************
  2243. *** 207,213 ****
  2244.       /*
  2245.        *    The remaining bit here is a date label
  2246.        */
  2247. !     PlaceStr(buf, today.day, appResources.mon[today.month], today.year);
  2248.       nargs = 0;
  2249.       XtSetArg(args[nargs], XtNlabel, buf); nargs++;
  2250.       XtSetArg(args[nargs], XtNborderWidth, 0); nargs++;
  2251. --- 207,213 ----
  2252.       /*
  2253.        *    The remaining bit here is a date label
  2254.        */
  2255. !     PlaceStr(buf, &today, appResources.memoYearIs2);
  2256.       nargs = 0;
  2257.       XtSetArg(args[nargs], XtNlabel, buf); nargs++;
  2258.       XtSetArg(args[nargs], XtNborderWidth, 0); nargs++;
  2259. ***************
  2260. *** 233,244 ****
  2261.   
  2262.           XtSetArg(args[0], XtNheight, &height);
  2263.           XtGetValues(memo.m_today, args, 1);
  2264.           height = height*NewlineCount(str);
  2265.           XtSetArg(args[0], XtNheight, height);
  2266.           XtSetValues(memo.m_today, args, 1);
  2267.       }
  2268. !         
  2269.       /*
  2270.        *    Another form with some buttons
  2271.        */
  2272.       nargs = 0;
  2273. --- 233,294 ----
  2274.   
  2275.           XtSetArg(args[0], XtNheight, &height);
  2276.           XtGetValues(memo.m_today, args, 1);
  2277. +         charHeight = height;
  2278.           height = height*NewlineCount(str);
  2279.           XtSetArg(args[0], XtNheight, height);
  2280.           XtSetValues(memo.m_today, args, 1);
  2281.       }
  2282. ! 
  2283.       /*
  2284. +      *    Weekly details - the data for today + an edit button
  2285. +      *    The header to this is a form
  2286. +      */
  2287. +     nargs = 0;
  2288. +     XtSetArg(args[nargs], XtNshowGrip, False); nargs++;
  2289. +     XtSetArg(args[nargs], XtNskipAdjust, True); nargs++;
  2290. +     XtSetArg(args[nargs], XtNdefaultDistance, 1); nargs++;
  2291. +     frame = XtCreateManagedWidget("weeklyMemo", formWidgetClass, et, args, nargs);
  2292. + 
  2293. +     /*
  2294. +      *    Take label "edit" from resources
  2295. +      */
  2296. +     callbacks[0].callback = DoWeekly;
  2297. +     callbacks[0].closure = (caddr_t)&memo;
  2298. +     nargs = 0;
  2299. +     XtSetArg(args[nargs], XtNcallback, callbacks); nargs++;
  2300. +     XtSetArg(args[nargs], XtNfromHoriz, NULL); nargs++;
  2301. +     XtSetArg(args[nargs], XtNleft, XtChainLeft); nargs++;
  2302. +     XtSetArg(args[nargs], XtNright, XtChainLeft); nargs++;
  2303. +     lw = XtCreateManagedWidget("weeklyEdit", commandWidgetClass, frame, args, nargs);
  2304. + 
  2305. +     /*
  2306. +      *    Say this is a weekly commitment
  2307. +      */
  2308. +     nargs = 0;
  2309. + 
  2310. +     XtSetArg(args[nargs], XtNshowGrip, True); nargs++;
  2311. +     XtSetArg(args[nargs], XtNborderWidth, 0); nargs++;
  2312. +     XtSetArg(args[nargs], XtNfromHoriz, lw); nargs++;
  2313. +     XtSetArg(args[nargs], XtNfromVert, NULL); nargs++;
  2314. +     XtSetArg(args[nargs], XtNvertDistance, 2); nargs++;
  2315. +     XtSetArg(args[nargs], XtNleft, XtChainLeft); nargs++;
  2316. +     XtSetArg(args[nargs], XtNright, XtChainRight); nargs++;
  2317. +     lw = XtCreateManagedWidget("weeklyTitle", labelWidgetClass, frame, args, nargs);
  2318. + 
  2319. +     /*
  2320. +      *    Details for today
  2321. +      */
  2322. +     nargs = 0;
  2323. +     str = GetWeeklyFile(today.wday);
  2324. +     if (str == NULL)
  2325. +         str = "";
  2326. +     XtSetArg(args[nargs], XtNstring, str); nargs++;
  2327. +     XtSetArg(args[nargs], XtNdisplayCaret, False); nargs++;
  2328. +     XtSetArg(args[nargs], XtNeditType, XawtextRead); nargs++;
  2329. +     if (charHeight)
  2330. +         XtSetArg(args[nargs], XtNheight, NewlineCount(str)*charHeight); nargs++;
  2331. +     memo.m_weekly = XtCreateManagedWidget("display", asciiTextWidgetClass, et, args, nargs);
  2332. +     /*
  2333.        *    Another form with some buttons
  2334.        */
  2335.       nargs = 0;
  2336. ***************
  2337. *** 342,347 ****
  2338. --- 392,404 ----
  2339.       (void) sprintf(buf, "%d %s %d", today.day, appResources.mon[today.month], today.year);
  2340.       XtSetArg(args[0], XtNlabel, buf);
  2341.       XtSetValues(memo.m_display, args, 1);
  2342. + 
  2343. +     str = GetWeeklyFile(today.wday);
  2344. +     if (str == NULL)
  2345. +         str = "";
  2346. +     XtSetArg(args[0], XtNstring, str);
  2347. +     XtSetValues(memo.m_weekly, args, 1);
  2348. + 
  2349.   }
  2350.   
  2351.   /*
  2352. ***************
  2353. *** 441,465 ****
  2354.        *    First let's see if we have 
  2355.        *    to create the toplevel directory
  2356.        */
  2357. !     if (!FoundCalendarDir)
  2358. !     {    if (mkdir(MapStem, 0700) == -1)
  2359. !         {    XBell(XtDisplay(toplevel), 0);
  2360. !             fprintf(stderr, "xcal: Could not create: %s directory.\n", MapStem);
  2361. !             perror("xcal: mkdir");
  2362. !             fflush(stderr);
  2363. !             return(False);
  2364. !         }
  2365. !         if (chdir(MapStem) < 0)
  2366. !         {    XBell(XtDisplay(toplevel), 0);
  2367. !             fprintf(stderr, "xcal: Could not chdir into %s.\n", MapStem);
  2368. !             perror("xcal: chdir");
  2369. !             fflush(stderr);
  2370. !             return(False);
  2371. !         }
  2372. !         FoundCalendarDir = True;
  2373. !     }
  2374.   
  2375.       fname = appResources.memoFile;
  2376.       if ((fd = open(fname, O_WRONLY|O_TRUNC|O_CREAT, 0666)) < 0)
  2377.       {    XBell(XtDisplay(toplevel), 0);
  2378.           fprintf(stderr, "xcal: Could not open %s/%s for writing.\n", MapStem, fname);
  2379. --- 498,508 ----
  2380.        *    First let's see if we have 
  2381.        *    to create the toplevel directory
  2382.        */
  2383. !     if (!NeedTop())
  2384. !         return (False);
  2385.   
  2386.       fname = appResources.memoFile;
  2387. + 
  2388.       if ((fd = open(fname, O_WRONLY|O_TRUNC|O_CREAT, 0666)) < 0)
  2389.       {    XBell(XtDisplay(toplevel), 0);
  2390.           fprintf(stderr, "xcal: Could not open %s/%s for writing.\n", MapStem, fname);
  2391. ***************
  2392. *** 487,493 ****
  2393.       caddr_t call_data;
  2394.   {
  2395.   
  2396. !     if (memoContents == NULL || strcmp(memoContents, memo.m_data))
  2397.       {    MemoCheckExit();
  2398.           return;
  2399.       }
  2400. --- 530,536 ----
  2401.       caddr_t call_data;
  2402.   {
  2403.   
  2404. !     if (memo.m_savesens == True)
  2405.       {    MemoCheckExit();
  2406.           return;
  2407.       }
  2408. *** xcal_popup.c~    Fri Mar 22 23:34:56 1991
  2409. --- xcal_popup.c    Fri Mar 22 23:48:24 1991
  2410. ***************
  2411. *** 1,5 ****
  2412.   #ifndef lint
  2413. ! static char *sccsid = "@(#)xcal_popup.c    3.4 (Hillside Systems) 12/12/90";
  2414.   static char *copyright = "@(#)Copyright 1989,1990 Peter Collinson, Hillside Systems";
  2415.   #endif  /* lint */
  2416.   /***
  2417. --- 1,5 ----
  2418.   #ifndef lint
  2419. ! static char *sccsid = "@(#)xcal_popup.c    3.5 (Hillside Systems) 1/16/91";
  2420.   static char *copyright = "@(#)Copyright 1989,1990 Peter Collinson, Hillside Systems";
  2421.   #endif  /* lint */
  2422.   /***
  2423. ***************
  2424. *** 395,400 ****
  2425. --- 395,413 ----
  2426.       static    char    errmsg[32];    
  2427.   
  2428.       (void) sprintf(errmsg, "Already editing %d %s %d", da->day, appResources.mon[da->month], da->year);
  2429. + 
  2430. +     DialogPopup(w, NoEdit, errmsg);
  2431. + 
  2432. + }
  2433. + 
  2434. + void
  2435. + NoDayEditIsPossible(w, day)
  2436. +     Widget    w;
  2437. +     Cardinal day;
  2438. + {
  2439. +     static    char    errmsg[32];    
  2440. + 
  2441. +     (void) sprintf(errmsg, "Already editing %s", appResources.day[day]);
  2442.   
  2443.       DialogPopup(w, NoEdit, errmsg);
  2444.   
  2445. *** xcal_strip.c~    Fri Mar 22 23:34:54 1991
  2446. --- xcal_strip.c    Fri Mar 22 23:48:23 1991
  2447. ***************
  2448. *** 1,5 ****
  2449.   #ifndef lint
  2450. ! static char *sccsid = "@(#)xcal_strip.c    3.6 (Hillside Systems) 12/7/90";
  2451.   static char *copyright = "@(#)Copyright 1989,1990 Peter Collinson, Hillside Systems";
  2452.   #endif  /* lint */
  2453.   /***
  2454. --- 1,5 ----
  2455.   #ifndef lint
  2456. ! static char *sccsid = "@(#)xcal_strip.c    3.10 (Hillside Systems) 1/16/91";
  2457.   static char *copyright = "@(#)Copyright 1989,1990 Peter Collinson, Hillside Systems";
  2458.   #endif  /* lint */
  2459.   /***
  2460. ***************
  2461. *** 45,55 ****
  2462.    */
  2463.   void MakeMonth();
  2464.   void    DayBack();
  2465. ! #ifdef LONG_IS_32_BITS
  2466.   void    YmBack();
  2467.   #endif
  2468.   void    StripQuit();
  2469. ! 
  2470.   void    MakeNewMonth();
  2471.   
  2472.   Cardinal DateSum();
  2473. --- 45,56 ----
  2474.    */
  2475.   void MakeMonth();
  2476.   void    DayBack();
  2477. ! #ifndef LONG_IS_32_BITS
  2478.   void    YmBack();
  2479.   #endif
  2480.   void    StripQuit();
  2481. ! void    StripHelp();
  2482. ! void    WeeklyHelp();
  2483.   void    MakeNewMonth();
  2484.   
  2485.   Cardinal DateSum();
  2486. ***************
  2487. *** 56,63 ****
  2488.   Cardinal NumberOfDays();
  2489.   Cardinal FirstDay();
  2490.   Cardinal JanuaryOne();
  2491.   /*
  2492. !  *    Start a strip calendar happening
  2493.    *    a callback of left button 
  2494.    */
  2495.   /* ARGSUSED */
  2496. --- 57,71 ----
  2497.   Cardinal NumberOfDays();
  2498.   Cardinal FirstDay();
  2499.   Cardinal JanuaryOne();
  2500. + 
  2501.   /*
  2502. !  *    Local routines
  2503. !  */
  2504. ! static void    CreateActionBar();
  2505. ! static void    CreateWeeklyActionBar();
  2506. ! 
  2507. ! /*
  2508. ! *    Start a strip calendar happening
  2509.    *    a callback of left button 
  2510.    */
  2511.   /* ARGSUSED */
  2512. ***************
  2513. *** 70,75 ****
  2514. --- 78,100 ----
  2515.       NewMonthStrip(&today);        /* today is global */
  2516.   }
  2517.   
  2518. + /* ARGSUSED */
  2519. + void
  2520. + DoWeekly(w, closure, call_data)
  2521. +     Widget w;
  2522. +     caddr_t    closure;
  2523. +     caddr_t call_data;
  2524. + {
  2525. +     Date    thisday;
  2526. + 
  2527. +     thisday.day = 0;
  2528. +     thisday.month = 0;
  2529. +     thisday.year = 0;
  2530. +     thisday.wday = 0;
  2531. +     NewMonthStrip(&thisday);    /* today is global */
  2532. + }
  2533. + 
  2534. + 
  2535.   /*
  2536.    *    Start a strip calendar happening
  2537.    *    a callback of the > or < buttons in another strip
  2538. ***************
  2539. *** 112,125 ****
  2540.       Date    *td;
  2541.   {
  2542.       Widget        shell, mon, dw, lw, lwi, form;
  2543. !     Arg    args[15];
  2544.       char        nbuf[256];
  2545.       char        iconName[80];
  2546.       MonthEntry    *me;
  2547.       Instance    *ins;
  2548.       register int    i;
  2549.       register Cardinal nargs;
  2550.       Cardinal    thisDay;
  2551.       String        dayStr;
  2552.       Cardinal    numberOfDays;
  2553.       Boolean        defaultsAreSet = False;
  2554. --- 137,152 ----
  2555.       Date    *td;
  2556.   {
  2557.       Widget        shell, mon, dw, lw, lwi, form;
  2558. !     Arg        args[15];
  2559.       char        nbuf[256];
  2560.       char        iconName[80];
  2561. +     int        type;
  2562.       MonthEntry    *me;
  2563.       Instance    *ins;
  2564.       register int    i;
  2565.       register Cardinal nargs;
  2566.       Cardinal    thisDay;
  2567. +     Cardinal    startLoop;
  2568.       String        dayStr;
  2569.       Cardinal    numberOfDays;
  2570.       Boolean        defaultsAreSet = False;
  2571. ***************
  2572. *** 129,161 ****
  2573.       Dimension    labelH, infoH;
  2574.       Dimension    width;
  2575.       Dimension    totalWidth;
  2576. -     void        StripHelp();
  2577.   
  2578. !     (void) sprintf(iconName, "%s %d", appResources.smon[td->month], td->year);
  2579. ! 
  2580. !     XtSetArg(args[0], XtNiconName, iconName);
  2581. !     shell = XtCreatePopupShell(XtNewString(iconName), topLevelShellWidgetClass, toplevel, args, 1);
  2582. ! 
  2583. !     ins = RegisterMonth(td->year, td->month, shell);    
  2584. ! 
  2585. !     mon = XtCreateManagedWidget(appResources.mon[td->month], panedWidgetClass, shell, NULL, 0);
  2586. ! 
  2587. !     thisDay = FirstDay(td->month, td->year);
  2588. !     numberOfDays = NumberOfDays(td->month, td->year);
  2589.       /*
  2590. !      *    Get the map for this year
  2591.        */
  2592. !     me = GetMonthEntry(td->year, td->month);
  2593.       /*
  2594. -      *    Title bar is month and date
  2595. -      */
  2596. -     (void) sprintf(nbuf, "%s %d", appResources.mon[td->month], td->year);
  2597. -     /*
  2598. -      *    see if we will need to worry about marking today's entry
  2599. -      */
  2600. -     if (appResources.markToday && td->year == today.year && td->month == today.month)
  2601. -         markThisMonth = True;
  2602. -     /*
  2603.        *    Find size of title bar
  2604.        *    by creating the widget and then throwing it away
  2605.        */
  2606. --- 156,221 ----
  2607.       Dimension    labelH, infoH;
  2608.       Dimension    width;
  2609.       Dimension    totalWidth;
  2610.   
  2611. !     type = (td->day == 0) ? ME_WEEKLY : ME_MONTHLY;
  2612. !     
  2613.       /*
  2614. !      *    There are lots of differences between
  2615. !      *    Months and weekly strips here.
  2616. !      *    Later tests are done using a switch structure
  2617.        */
  2618. !     switch (type)
  2619. !     {
  2620. !     case ME_MONTHLY:
  2621. !         (void) sprintf(iconName, "%s %d", appResources.smon[td->month], td->year);
  2622. !         XtSetArg(args[0], XtNiconName, iconName);
  2623. !         shell = XtCreatePopupShell(XtNewString(iconName), topLevelShellWidgetClass, toplevel, args, 1);
  2624. !         ins = RegisterMonth(td->year, td->month, shell);    
  2625. !         mon = XtCreateManagedWidget(appResources.mon[td->month], panedWidgetClass, shell, NULL, 0);
  2626. !         thisDay = FirstDay(td->month, td->year);
  2627. !         numberOfDays = NumberOfDays(td->month, td->year);
  2628. !         startLoop = 1;
  2629. !         /*
  2630. !          *    Get the map for this year
  2631. !          */
  2632. !         me = GetMonthEntry(td->year, td->month);
  2633. !         me->me_type = type;
  2634. !         /*
  2635. !          *    Title bar is month and date
  2636. !          */
  2637. !         (void) sprintf(nbuf, "%s %d", appResources.mon[td->month], td->year);
  2638. !         /*
  2639. !          *    see if we will need to worry about marking today's entry
  2640. !          */
  2641. !         if (appResources.markToday && td->year == today.year && td->month == today.month)
  2642. !             markThisMonth = True;
  2643. !         break;
  2644. !     case ME_WEEKLY:
  2645. !         (void) strcpy(iconName, appResources.weekly);
  2646. !         XtSetArg(args[0], XtNiconName, iconName);
  2647. !         shell = XtCreatePopupShell(XtNewString(iconName), topLevelShellWidgetClass, toplevel, args, 1);
  2648. !         ins = RegisterMonth(0, 0, shell);    
  2649. !         mon = XtCreateManagedWidget(iconName, panedWidgetClass, shell, NULL, 0);
  2650. !         thisDay = 0;
  2651. !         numberOfDays = 6;    /* test is <= */
  2652. !         startLoop = 0;
  2653. !         /*
  2654. !          *    Get the map for this year
  2655. !          */
  2656. !         me = GetWeeklyEntry();
  2657. !         me->me_type = type;
  2658. !         /*
  2659. !          *    Title bar is from the resources
  2660. !          */
  2661. !         strcpy(nbuf, iconName);
  2662. !         /*
  2663. !          *    see if we will need to worry about marking today's entry
  2664. !          */
  2665. !         if (appResources.markToday)
  2666. !             markThisMonth = True;
  2667. !         break;
  2668. !     }
  2669.       /*
  2670.        *    Find size of title bar
  2671.        *    by creating the widget and then throwing it away
  2672.        */
  2673. ***************
  2674. *** 185,245 ****
  2675.       XtSetArg(args[nargs], XtNdefaultDistance, 2); nargs++;
  2676.       dw = XtCreateManagedWidget("action", formWidgetClass, mon, args, nargs);
  2677.   
  2678. !     /*
  2679. !      *    back one month
  2680. !      *    label "<" from resources
  2681. !      */
  2682. !     callbacks[0].callback = MakeNewMonth;
  2683. !     callbacks[0].closure = (caddr_t)DateSum(td, -1);
  2684. !     nargs = 0;
  2685. !     XtSetArg(args[nargs], XtNcallback, callbacks); nargs++;
  2686. !     XtSetArg(args[nargs], XtNfromHoriz, NULL); nargs++;
  2687. !     XtSetArg(args[nargs], XtNleft, XtChainLeft); nargs++;
  2688. !     XtSetArg(args[nargs], XtNright, XtChainLeft); nargs++;
  2689. !     lw = XtCreateManagedWidget("back", commandWidgetClass, dw, args, nargs);
  2690. !     ClearCallbacks();
  2691. ! 
  2692. !     /*
  2693. !      *    Quit button
  2694. !      *    label "quit" from resources
  2695. !      */
  2696. !     callbacks[0].callback = StripQuit;
  2697. !     callbacks[0].closure = (caddr_t)shell;
  2698. !     nargs = 0;
  2699. !     XtSetArg(args[nargs], XtNcallback, callbacks); nargs++;
  2700. !     XtSetArg(args[nargs], XtNfromHoriz, lw); nargs++;
  2701. !     XtSetArg(args[nargs], XtNleft, XtChainLeft); nargs++;
  2702. !     XtSetArg(args[nargs], XtNright, XtChainRight); nargs++;
  2703. !     lw = XtCreateManagedWidget("quit", commandWidgetClass, dw, args, nargs);
  2704. !     ClearCallbacks();
  2705. ! 
  2706. !     /*
  2707. !      *    On one month
  2708. !      *    label ">" from reources
  2709. !      */
  2710. !     callbacks[0].callback = MakeNewMonth;
  2711. !     callbacks[0].closure = (caddr_t)DateSum(td, 1);
  2712. !     nargs = 0;
  2713. !     XtSetArg(args[nargs], XtNcallback, callbacks); nargs++;
  2714. !     XtSetArg(args[nargs], XtNfromHoriz, lw); nargs++;
  2715. !     XtSetArg(args[nargs], XtNleft, XtChainRight); nargs++;
  2716. !     XtSetArg(args[nargs], XtNright, XtChainRight); nargs++;
  2717. !     lw = XtCreateManagedWidget("next", commandWidgetClass, dw, args, nargs);
  2718. !     ClearCallbacks();
  2719. ! 
  2720. !     /*
  2721. !      *    Help button
  2722. !      *    label help from resources
  2723. !      */
  2724. !     if (appResources.giveHelp)
  2725. !     {    
  2726. !         callbacks[0].callback = StripHelp;
  2727. !         callbacks[0].closure = (caddr_t)0;
  2728. !         nargs = 0;
  2729. !         XtSetArg(args[nargs], XtNcallback, callbacks); nargs++;
  2730. !         XtSetArg(args[nargs], XtNshowGrip, False); nargs++;
  2731. !         lw = XtCreateManagedWidget("help", commandWidgetClass, mon, args, nargs);
  2732. !         ClearCallbacks();
  2733.       }
  2734.   
  2735.   #ifdef    LONG_IS_32_BITS
  2736. --- 245,258 ----
  2737.       XtSetArg(args[nargs], XtNdefaultDistance, 2); nargs++;
  2738.       dw = XtCreateManagedWidget("action", formWidgetClass, mon, args, nargs);
  2739.   
  2740. !     switch (type)
  2741. !     {
  2742. !     case ME_MONTHLY:
  2743. !         CreateActionBar(shell, dw, mon, td);
  2744. !         break;
  2745. !     case ME_WEEKLY:
  2746. !         CreateWeeklyActionBar(shell, dw);
  2747. !         break;
  2748.       }
  2749.   
  2750.   #ifdef    LONG_IS_32_BITS
  2751. ***************
  2752. *** 248,265 ****
  2753.       callbacks[0].callback = YmBack;
  2754.       callbacks[1].callback = DayBack;
  2755.   #endif
  2756. !     for (i = 1; i <= numberOfDays; i++)
  2757.       {
  2758. !         dayStr = appResources.day[thisDay];
  2759. !         (void) sprintf(nbuf, "%2d %s", i, dayStr);
  2760. !         thisDay = (thisDay+1)%7;
  2761. !         
  2762.   #ifdef LONG_IS_32_BITS
  2763. !         callbacks[0].closure = (caddr_t)DatePack(i, td->month, td->year);
  2764.   #else
  2765.           callbacks[0].closure = (caddr_t)DatePack(td->month, td->year);
  2766. !         callbacks[1].closure = (caddr_t)i;
  2767.   #endif        
  2768.           /*
  2769.            *    Each line in the strip is
  2770.            *    form containing
  2771. --- 261,287 ----
  2772.       callbacks[0].callback = YmBack;
  2773.       callbacks[1].callback = DayBack;
  2774.   #endif
  2775. !     for (i = startLoop; i <= numberOfDays; i++)
  2776.       {
  2777. !         dayStr = appResources.sday[thisDay];
  2778. !         switch(type)
  2779. !         {
  2780. !         case ME_MONTHLY:
  2781. !             (void) sprintf(nbuf, "%2d %s", i, dayStr);
  2782. !             break;
  2783. !         case ME_WEEKLY:
  2784. !             (void) strcpy(nbuf, dayStr);
  2785. !             break;
  2786. !         }
  2787.   #ifdef LONG_IS_32_BITS
  2788. !         callbacks[0].closure = (caddr_t)DatePack(thisDay, i, td->month, td->year);
  2789.   #else
  2790.           callbacks[0].closure = (caddr_t)DatePack(td->month, td->year);
  2791. !         callbacks[1].closure = (caddr_t)DayPack(thisDay, i);
  2792.   #endif        
  2793. + 
  2794. +         thisDay = (thisDay+1)%7;
  2795. +         
  2796.           /*
  2797.            *    Each line in the strip is
  2798.            *    form containing
  2799. ***************
  2800. *** 288,294 ****
  2801.            *    highlighting we get them after we have created the
  2802.            *    widget. Then we highlight today.
  2803.            */
  2804. !         if (markThisMonth && today.day == i)
  2805.           {
  2806.               nargs = 0;
  2807.               XtSetArg(args[nargs], XtNforeground, &ins->i_col.fg); nargs++;
  2808. --- 310,318 ----
  2809.            *    highlighting we get them after we have created the
  2810.            *    widget. Then we highlight today.
  2811.            */
  2812. !         if (markThisMonth &&
  2813. !             ((type == ME_MONTHLY && today.day == i) ||
  2814. !              (type == ME_WEEKLY && today.wday == i)))
  2815.           {
  2816.               nargs = 0;
  2817.               XtSetArg(args[nargs], XtNforeground, &ins->i_col.fg); nargs++;
  2818. ***************
  2819. *** 372,377 ****
  2820. --- 396,517 ----
  2821.   }
  2822.   
  2823.   /*
  2824. +  *    Create action bar for normal monthly strip
  2825. +  */
  2826. + static void
  2827. + CreateActionBar(shell, dw, mon, td)
  2828. +     Widget    shell;
  2829. +     Widget    dw;
  2830. +     Widget    mon;
  2831. +     Date    *td;
  2832. + {
  2833. +     Widget        lw;
  2834. +     register Cardinal nargs;
  2835. +     Arg        args[8];
  2836. + 
  2837. +     /*
  2838. +      *    back one month
  2839. +      *    label "<" from resources
  2840. +      */
  2841. +     callbacks[0].callback = MakeNewMonth;
  2842. +     callbacks[0].closure = (caddr_t)DateSum(td, -1);
  2843. +     nargs = 0;
  2844. +     XtSetArg(args[nargs], XtNcallback, callbacks); nargs++;
  2845. +     XtSetArg(args[nargs], XtNfromHoriz, NULL); nargs++;
  2846. +     XtSetArg(args[nargs], XtNleft, XtChainLeft); nargs++;
  2847. +     XtSetArg(args[nargs], XtNright, XtChainLeft); nargs++;
  2848. +     lw = XtCreateManagedWidget("back", commandWidgetClass, dw, args, nargs);
  2849. +     ClearCallbacks();
  2850. + 
  2851. +     /*
  2852. +      *    Quit button
  2853. +      *    label "quit" from resources
  2854. +      */
  2855. +     callbacks[0].callback = StripQuit;
  2856. +     callbacks[0].closure = (caddr_t)shell;
  2857. +     nargs = 0;
  2858. +     XtSetArg(args[nargs], XtNcallback, callbacks); nargs++;
  2859. +     XtSetArg(args[nargs], XtNfromHoriz, lw); nargs++;
  2860. +     XtSetArg(args[nargs], XtNleft, XtChainLeft); nargs++;
  2861. +     XtSetArg(args[nargs], XtNright, XtChainRight); nargs++;
  2862. +     lw = XtCreateManagedWidget("quit", commandWidgetClass, dw, args, nargs);
  2863. +     ClearCallbacks();
  2864. + 
  2865. +     /*
  2866. +      *    On one month
  2867. +      *    label ">" from reources
  2868. +      */
  2869. +     callbacks[0].callback = MakeNewMonth;
  2870. +     callbacks[0].closure = (caddr_t)DateSum(td, 1);
  2871. +     nargs = 0;
  2872. +     XtSetArg(args[nargs], XtNcallback, callbacks); nargs++;
  2873. +     XtSetArg(args[nargs], XtNfromHoriz, lw); nargs++;
  2874. +     XtSetArg(args[nargs], XtNleft, XtChainRight); nargs++;
  2875. +     XtSetArg(args[nargs], XtNright, XtChainRight); nargs++;
  2876. +     lw = XtCreateManagedWidget("next", commandWidgetClass, dw, args, nargs);
  2877. +     ClearCallbacks();
  2878. + 
  2879. +     /*
  2880. +      *    Help button
  2881. +      *    label help from resources
  2882. +      */
  2883. +     if (appResources.giveHelp)
  2884. +     {    
  2885. +         callbacks[0].callback = StripHelp;
  2886. +         callbacks[0].closure = (caddr_t)0;
  2887. +         nargs = 0;
  2888. +         XtSetArg(args[nargs], XtNcallback, callbacks); nargs++;
  2889. +         XtSetArg(args[nargs], XtNshowGrip, False); nargs++;
  2890. +         lw = XtCreateManagedWidget("help", commandWidgetClass, mon, args, nargs);
  2891. +         ClearCallbacks();
  2892. +     }
  2893. + }
  2894. + 
  2895. + /*
  2896. +  *    Create action bar for normal monthly strip
  2897. +  */
  2898. + static void
  2899. + CreateWeeklyActionBar(shell, dw)
  2900. +     Widget    shell;
  2901. +     Widget    dw;
  2902. + {
  2903. +     Widget        lw;
  2904. +     register Cardinal nargs;
  2905. +     Arg        args[8];
  2906. + 
  2907. +     /*
  2908. +      *    Quit button
  2909. +      *    label "quit" from resources
  2910. +      */
  2911. +     callbacks[0].callback = StripQuit;
  2912. +     callbacks[0].closure = (caddr_t)shell;
  2913. +     nargs = 0;
  2914. +     XtSetArg(args[nargs], XtNcallback, callbacks); nargs++;
  2915. +     XtSetArg(args[nargs], XtNfromHoriz, NULL); nargs++;
  2916. +     XtSetArg(args[nargs], XtNleft, XtChainLeft); nargs++;
  2917. +     XtSetArg(args[nargs], XtNright, appResources.giveHelp ? XtChainLeft: XtChainRight); nargs++;
  2918. +     lw = XtCreateManagedWidget("quit", commandWidgetClass, dw, args, nargs);
  2919. +     ClearCallbacks();
  2920. + 
  2921. +     /*
  2922. +      *    Help button
  2923. +      *    label help from resources
  2924. +      */
  2925. +     if (appResources.giveHelp)
  2926. +     {    
  2927. +         callbacks[0].callback = WeeklyHelp;
  2928. +         callbacks[0].closure = (caddr_t)0;
  2929. +         nargs = 0;
  2930. +         XtSetArg(args[nargs], XtNcallback, callbacks); nargs++;
  2931. +         XtSetArg(args[nargs], XtNfromHoriz, lw); nargs++;
  2932. +         XtSetArg(args[nargs], XtNleft, XtChainLeft); nargs++;
  2933. +         XtSetArg(args[nargs], XtNright, XtChainRight); nargs++;
  2934. +         lw = XtCreateManagedWidget("help", commandWidgetClass, dw, args, nargs);
  2935. +         ClearCallbacks();
  2936. +     }
  2937. + }
  2938. + 
  2939. + /*
  2940.    *    Called when the date changes to ensure that
  2941.    *    the correct day has the appropriate highlights
  2942.    */
  2943. ***************
  2944. *** 445,451 ****
  2945.           y++;
  2946.       }
  2947.   #ifdef LONG_IS_32_BITS
  2948. !     return(DatePack(0, m, y));
  2949.   #else
  2950.       return(DatePack(m, y));
  2951.   #endif
  2952. --- 585,591 ----
  2953.           y++;
  2954.       }
  2955.   #ifdef LONG_IS_32_BITS
  2956. !     return(DatePack(0, 0, m, y));
  2957.   #else
  2958.       return(DatePack(m, y));
  2959.   #endif
  2960. ***************
  2961. *** 465,474 ****
  2962.   #ifdef LONG_IS_32_BITS
  2963.       callb.month = MoUnpack((Cardinal)closure);
  2964.       callb.year = YrUnpack((Cardinal)closure);
  2965. -     callb.day = DyUnpack((Cardinal)closure);
  2966. - #else
  2967. -     callb.day = (Cardinal)closure;
  2968.   #endif
  2969.       StartEditing(w, &callb);
  2970.   }
  2971.   
  2972. --- 605,613 ----
  2973.   #ifdef LONG_IS_32_BITS
  2974.       callb.month = MoUnpack((Cardinal)closure);
  2975.       callb.year = YrUnpack((Cardinal)closure);
  2976.   #endif
  2977. +     callb.day = DyUnpack((Cardinal)closure);
  2978. +     callb.wday = WdUnpack((Cardinal)closure);
  2979.       StartEditing(w, &callb);
  2980.   }
  2981.   
  2982.  
  2983. --
  2984. Dan Heller
  2985. O'Reilly && Associates       Z-Code Software    Comp-sources-x:
  2986. Senior Writer                President          comp-sources.x@uunet.uu.net
  2987. argv@ora.com                 argv@zipcode.com
  2988.